










ISSN : 0294-6068 


PRIX 45 F 


NUMERO 27 - 


( 4 Sv-L2-99€CW ) 





LES BEST SELLERS 


Système ProDOS sur Apple 
par M. Cottini — 328 pages 190,00 FF 
Programmation système de l'Apple 

par M. Cottini — 320 pages 190,00 FF 


Apple, Modems et serveurs 
par A. Mariatte — 224 pages 130,00 FF * 
Clefs pour Apple // 65C02 

par N. Bréaud Pouliquen 


172 pages 130,00 FF 


Appleworks au travail 

par JM. Jego et À. Gargadenrec 
192 pages 160,00 FF * 
50 modèles Multiplan pour gérer 
sur Apple et IBM/PC 

par P. Gysel — 200 pages 130,00 FF * 
Apple, logique et systèmes experts 

par R. Descamps — 224 pages 120,00 FF * 


Création et animation graphique sur Apple Il 
par G. Fouchard et J.Y. Corre 


Livre-disquette 335,00 FF 
EH Super Jeux Apple 
par J.F. Sehan — 256 pages 120,00 FF: 


"ni A 
24 À 


Clefs pour Macintosh 
per F. Blanc et P. Brandeis 
204 pages 


150,00 FF 


Mulitiplan pour Macintosh 
par H. Thiriez — 312 pages 110,00 FF * 
Le livre de Jazz 

par J.C. Krust et P. Auchatraire 


312 pages 220,00 FF 


Basic Microsoft 2.0 sur Macintosh 
par M. Miller et K. Knecht 


380 pages 250,00 FF 


Mac Astuces - Mac et Mac Plus 

Deuxième édition 

par H. Thiriez — 288 pages 160,00 FF * 
Des explications claires Sur de nombreux 
aspects du Mac et de multiples astuces sur 
son système et ses logiciels courants. 


Le livre d’Excel sur Macintosh 

par P. Auchatraire — 384 pages 245,00 FF 
Découvrez progressivement grâce à des 
exemples le tableur d'Excel sur Mac et 
Mac Plus. 


À PARAITRE 


Macintosh efficace 
par P. Brandeis et F. Blanc 


168 pages 150,00 FF 


ENVOYER CE BON ACCOMPAGNÉ DE VOTRE REGLEMENT à P.C.V. DIFFUSION 
BP 86 — 77402 Lagny/Msrne Cedex 





DÉSIGNATION 









TOTAL 


0 


Signature : 








-. 


Frais de port | 10,00 FF 


? 


2 Paiement par chèque joint 

CO Paiement par Carte Bleue Viss 
(P.C.V. Diffusion uniquement} 
N L2 


Date d'expiration 
CO Je demande le catalogue P.C.V. gratuit 
Nom 
Prénom 
Rue 
Ville _____— Code Postal 





z 
© 








PROGRAMMATIQ 
SYSTEM 
DE L'APPLE 


SUR MACINTOSH me, 


2. 


Gagnez du temps : 
Ne recopiez pas tous les 
programmes du livre, 
commandez la disquette 
qui vous les fournit 
directement utilisables 
sur votre ordinateur 
Prix : 150,00 FF 


en vente par correspondance 


uniquement à P.S.I. 








Numéro 27 
novembre-décembre 86 
Éditorial 


Hervé Thiriez 


TéléAlarme 
T'élématique 


Bernard Hoyez et 


Jean-Luc Nail 
Le [re] 


Page 6 


Un carnet d'adresses 


Boris Fivolewski 


on) Ce 
: UT} | e] 


Éjectez les disquettes 
ES 1 


Bruno Fénart 


AT on I 
el ra 






Page 18 


‘apprenti-FORT Hier 







L 





Fej Nissuor gsky 
/le 
Sinlois ne 





Carte Super Série 


et CPIM Seconde partie 


Jean-François 
Fe] 


Rabasse 
Page 29 











Mise En Page 


Georges Zwingelstein 


Page 40 


MacAstuces 
Page 42 


Jean-Luc Bazanegue 
Page 4 





Minitel & Apple // 
Christian Piard 
LS 


[7e] 
l'Apple GS (* 











Page 65 


Un crayon Optique 
Christian Piard 
Page 67 






Micro-informations Cè 
Jean-Michel Gourévitch Page 70 








Bibliographie 


Alexandre Duback 





Les annonceurs ; Apple : pages 38 et 39. Badaroux C.A. : page 37. Infomag : page 75. PSI : page 76. 


| Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39 51 24 43. Directeur de la publication : Hervé Thiriez | 





Pom's n° 27 





Pom’s présente : 


Ordico 
dE 


Destiné aux amateurs de mots croisés ou de Scrabble, cette base de données, 
due à Roland Jost, permet de trouver un mot de longueur donnée dont on ne 


connaît que quelques lettres. 


Ordico contient plus de 15000 mots classés en 70 rubriques. 

Recherches et affichages sont rapides : un fichier de 1500 mots est chargé en 
moins de 10 secondes et exploité quasi-instantanément. 

Il est bien sûr possible d'ajouter des termes aux divers fichiers, de créer de 


nouvelles rubriques. 


Voici quelques rubriques : 


1ère face : 

Acteurs, Animaux, Armes/guerres, Auteurs américains, Auteurs anglais, Auteurs français, 
Chimie, Cinéastes, Coureurs cyclistes, Départements/régions, Dieux/déesses, Familles 
végétales, Femmes célèbres, Hommes politiques, Iles, Jeux/sports, Minéraux, Montagnes, 
Musiciens Jazz, Musiciens, Parties du corps, Peintres étrangers, Peintres français, 
Rivières/fleuves, Saints/saintes, Savanrsl/inventeurs, Sculpteurs, végétaux, Vêtements, Villes 
2ème face : 

Athlètes, Boxeurs, Cantatrices, Cols, Cosmonautes, Coureurs automobiles, Déserts, Détroits, 
Doctrines philosophiques, Drogues, Escrimeurs, Explorateurs, Gymnastes, Haltérophiles, 
Judokas, Lutteurs, Maladies, Maréchaux de France, Médicaments, Nageurs, Patineurs, 
Poissons, Présidents américains, Skieurs, Ski nordique, Unités, Villes olympiques 


Exemples : 
Un musicien dont le nom comporte 7 lettres, les 2ème et Sème sont des ‘E’. Tapez : 
—E- -E- —. Vous obtenez instantanément : 
BENNETT DEBOECK DELEEUW GEVAERT LESUEUR PEDRELL PEETERS WELLESZ 


Dans les acteurs, —-A-— — — -E vous donnerait : 
CARETTE PALANCE RACETTE RANDONE RAYMONE VALLONE 
ET 


CAUCHY CEECHI ENIGHT VAUGAN WRIGHT 
——————- dans les femmes célèbres donnerait 32 noms. 


Disquette double face et documentation : 200,00 F franco. Bon de commande page 74 
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P 
Editorial 
Trait d'union entre la série [! et le Macintosh ? Il ressort de nos premiers contacts avec le IIGS qu'Apple a 
réussi à construire un système ouvert, pratique comme le Mac, doté de la philosophie Mac, la couleur en 
plus, le 68000 en moins. Le côté évolution de l'Apple !l est à notre sens un atout décisif pour les adeptes 
du prédécesseur : il était malaisé de passer du 6502 au 68000 car il s'agit de deux mondes différents. 


Avec le 65816, on se sent chez soi et, à en croire nos entretiens téléphoniques, nombre d'entre-vous sont 
déjà séduits. La présentation de la page 65 vous en dira plus. 


Le numéro I de Pom's est sorti en septembre 81, à 35 F ; plus de cinq ans après, nous sommes hélas 
obligés d'augmenter le prix pour la seconde fois, le numéro passant à 45 F. Le tarif était resté stable 
depuis le numéro 9, ce qui reste honorable, d'autant plus que la densité d'informations s'accroît de 
numéro en numéro : la typographie réduite pour les listings nous permet de vous proposer des 
programmes toujours plus riches. Là où nous pouvions vous proposer une routine à utiliser dans vos 
programmes, un programme complet (sept présentement), d'utilisation aisée, trouve sa place. 


Comme vous le découvrez, ces pages sont très orientées vers la communication. Le Minitel prend la 
dimension d'un phénomène (on parle de deux millions d'appareils en service à la fin de cette année) et 
Pom's devait s'y consacrer car la gratuité de ce modem nous donne une ouverture vers la 
communication, ouverture qu'il serait dommage d'ignorer. Un système de Téléalarme et des logiciels 
d'enregistrement et restitution des écrans sont au programme : l'utilisation de la prise péri-informatique et 
du modem vous sera bientôt familière. 


Autre aspect de la communication, le protocole XMODEM sous CPIM qui décrit l'art et la manière de 
transmettre des informations avec l'assurance qu'elles sont bien comprises. 


Pour l'Apple /|, deux autres programmes d'utilisation immédiate : l'un pour approcher le FORTA, l'autre 
pour gérer un carnet d'adresses, doté d'une bonne ergonomie. Ce dernier reçoit de façon optionnelle le 
composeur téléphonique des numéros 22/23 ce qui forme alors un ensemble intéressant. 


Nous n'abandonnons pas l'aspect utilitaire des routines chères à Pom’ s : un crayon optique, pratique, 
sera certainement connecté demain à l'entrée des manettes de jeux de vetre [le ou //c. Autre utilitaire : 
comment éjecter des disquettes 35. Pratique également, mais sans rapport, l'application ‘Mise En Page”, 
œuvre d'un auteur passé récemment de l'Apple /! au Macintosh. 


Hervé Thiriez 


Ont collaboré à ce numéro: Alexandre Avrane, Jean-Luc Bazanegue, Bruno Fénart, Boris Fivolewski, Jean-Michel 
Gourévitch, Olivier Herz, Bernard Hoyez, Gérard Michel, Jean-Luc Nail, Fej Nissuorgsky, 
Christian Piard, Jean-François Rabasse, Hervé Thiriez, Georges Zwingelstein. 

Directeur de la publication, rédacteur en chef : Hervé Thiniez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : NM.P.P. 

Impression : Rosay - 47, avenue de Pans - 94300 Vincennes. Tél. : (1) 43.28.18.63. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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DE ET EE 


TéléA larme Télématique 


Bernard Hoyez, Jean-Luc Naïl 


e développement 

parallèle de dla 

micro-mformatique et 

de la télématique fait 
souvent voisiner sur une même 
table micro-ordinateur et Minitel. 
En dehors de leur air de famille, 
ils s'ignorent souvent l'un 
l'autre. 11 suffit cependant de peu 
de chose pour les marier et que 
naissent des applications 
nouvelles. Celle que nous vous 
présentons s'adresse à un Apple 
1, mais la transposition est 
réalisable simplement sur un autre 
micro-ordinateur ayant un port 
série. 


Peut-on apprendre à notre ordi- 
nateur à téléphoner tout seul, 
c'est-à-dire composer un numéro 
et répondre intelligiblement ? On 
peut envisager par exemple la 
connexion du haut-parleur interne 
sur la ligne téléphonique (par 
l'intermédiaire d'un transforma- 
teur de téléphone). Ce dispositif 
permettrait à l'Apple de servir de 
répondeur téléphonique, en utili- 
sant un programme de synthèse 
vocale par exemple. Malheureu- 
sement, la synthèse et la recon- 
naissance vocales sur un Apple //, 
sans périphérique spécialisé, 
n'offre pas de bons résultats. 
Aussi, notre réalisation n'utilisera 
pas la parole comme moyen 
d'échange, mais le texte. Rangez 
donc votre combiné téléphonique 
dans le placard et sortez votre 
Minitel qui s'avèrera plus adapté 
à la situation. 


Le principe 


Plus qu'un simple dispositif 
d'alarme, cette réalisation est un 
véritable système de contrôle à 
distance d'une installation. Le cas 
choisi ici, un dispositif anti- 
cambriolage, nous servira 


d'exemple, mais vous pourrez 
l'adapter à 


la surveillance 


d'appareils mécaniques, électri- 
ques ou scientifiques. 


Les acteurs de la pièce sont les 
suivants : 


- d'un coté l'Apple avec pour 
acolytes des capteurs, des 
relais et un MINITEL ; 

+ de l'autre coté, Monsieur X ou 
un complice, Monsieur YŸ, 
comme lui possesseur d'un 
Minitel ; 

- entre les deux, la ligne télépho- 
nique. 


Le scénario se déroule ainsi : 


Acte 1: une maison isolée. 
Arsène Lupin crochète la serrure. 
Au moment où la porte s'ouvre, 
un microcontact se ferme. 
L'Apple, en chien de garde, 
détecte l'ouverture. Aussitôt, il 
compose secrètement le numéro 
de téléphone de Monsieur X. 


Acte 2 : la sonnerie du téléphone 
de Monsieur X retentit. Monsieur 
X décroche le combiné et, dans 
l'écouteur, lui parvient un 
sifflement aigu, quelque chose 
qui lui rappelle le 1700 Hertz de 
l'annuaire électronique. Monsieur 
X a compris et connecte son 
Minitel. Il voit apparaître sur son 
écran une supplique le pressant à 
se manifester. 11 frappe sur son 
clavier la réponse souhaitée. 
Alors, un message plus explicatif 
s'offre à ses yeux : le lieu 
d'effraction, la position exacte du 
circuit atteint, l'état de certains 
capteurs. Une question lui est 
enfin posée : doit-il ordonner à 
l'Apple une riposte sur le lieu de 
l'effraction et laquelle ? 


Variante à l'acte 2 : la sonnerie 
du téléphone de Monsieur X 
retentit. Monsieur X est absent. 
Au bout d'une minute, l'Apple 
impatient raccroche, puis 
compose le numéro de Monsieur 
Y, autre familier qui est 
heureusement bien chez lui... etc. 


(cette variante peut être répétée 
jusqu'à épuisement de l'agenda). 
Acte 3: Monsieur X (ou Y) 
déclenche la riposte adéquate en 
tapant le numéro sur son clavier 
(une sirène, les gaz paralysants, 
ou le pulvérisateur d'huile de 
putois, au choix du scénariste). 
Happy end, le voleur est arrêté. 


Le dispositif 


Les éléments nécessaires à la réa- 
lisation du système de téléalarme 
sont les suivants : 


- un Apple ]f+ ou, de pré- 
férence, //e (pour le //c c'est 
plus complexe) muni d'une 
carte super-série (SSC entre 
nous) ; 

- un Minitel réversible (pres- 
que tous le sont maintenant) ; 

° un petit circuit de compo- 
sition automatique de nu- 
méro semblable à celui 
proposé dans le numéro 22 de 
Pom's ; 

° un certain nombre de micro- 
contacts à aimants (autant 
que de portes ou de fenêtres à 
protéger). Ces micro-contacts 
équipent les dispositifs de 
sécurité. Normalement, en 
veille, ces contacts sont 
fermés. Remplacer l'ampoule 
par une ampoule à contacts 
ouverts lorsque le plot aimanté 
est rapproché. 


Les micro-contacts sont groupés, 
en série, sur une entrée à un bit 
(boutons-poussoirs). Il y a 3 
entrées (PB0O, PB1, PB2) sur la 
prise de jeux, vous pourrez donc 
avoir trois groupes différents de 
micro-Ccontacts. 


Vous reliez l'autre borne de 
l'interrupteur au +5 volts (broche 
1 du connecteur interne), via une 
résistance d'environ 1 KSà pour 
atténuer le courant. 
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Rappelons que les entrées logi- 
ques sont accessibles sur les 
broches 2, 3 et 4 du connecteur 
interne ou sur les broches 7, 1 et 
6 du connecteur arrière du lle. 


-. de 0 à 3 relais, selon les be- 
soins, montés selon le même 
principe que pour le compo- 
seur de numéros. Ces relais 
sont connectés aux sorties- 
témoins ou annonciateurs. Les 
sorties logiques sont acces- 
sibles sur les broches 15, 14, 
13 et 12 du connecteur interne 
(hélas pas sur le connecteur 
arrière). Comme l'une de ces 
sorties est déja occupée par le 
composeur de numéros, trois 
sont encore disponibles (ANI, 
AN? et AN3) ; 


+ de 0 à 4 capteurs à résis- 
tance variable ou potentio- 
mètres de 150 KQ. Ces 
capteurs seront reliés direc- 
tement aux entrées des 
manettes de jeux (GCO, GCi, 
GC2 et GC3). Dans le 
programme proposé, nous ne 
ferons que lire la valeur prise 
par ce capteur, mais vous 
pouvez bien entendu envisager 
de déclencher l'alarme au-delà 
d'un certain seuil. 


Une application classique peut 
être la détection d'incendie ou de 
gel, à l'aide d'une thermistance. 
Une valeur préconisée pour cette 
thermistance peut être de 15 K92 à 
la température ambiante et un 
rapport R 25°/ RS0‘entre 9 
10. Des essais ont montré la 
linéarité de la fonction R = f( 
PDL (x)). Pour PDL(x) = 255, la 
résistance est environ de 115 


K£2 


D'autres applications : adapter 
une photo-résistance pour déclen- 
cher en fonction de la lumière 
ambiante, une jauge résistive de 
contrainte en fonction d'un effort 
ou d'une pression, un accéléro- 
mètre en fonction de chocs. 


* une liaison SSC-MINITEL : 
plusieurs solutions s'offrent à 
vous. Se reporter à la 
présentation générale page 53 
et au plan de câblage dans 
l'article Minitel/Apple page 55. 
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Attention si vous êtes bricoleur, 
ne réunissez votre Minitel à votre 
Apple qu'après avoir débranché 
sa prise secteur. Il ne suffit pas 
de l'éteindre, mais carrément de 
l'écarter du 220 volts, car le 
pauvre n'a qu'une seule tare, il ne 
possède pas de transformateur 
d'isolement. 


La carte SSC est logée dans le 
slot 2. Pour une autre implan- 
tation, quelques modifications 
doivent être apportées au 
programme. 

Enfin quelques réglages prélimi- 
naires permettent de s'affranchir 
de lignes de programmes super- 
flues. Voici la configuration : 


sw 


sw2 
on on 
fr QUUODO0| LrrD000000 
modem 
configuration 
de là carte 
terminal SSC Apple 
Le programme 


Trois sortes de considérations 
sont abordées dans l'écriture du 
logiciel de téléalarme : la gestion 
des entrées/sorties sur le connec- 
teur de jeu, la programmation de 
l'ACIA de la carte super-série et 
enfin l'utilisation du Minitel. 


La prise de jeu, 
prise au sérieux 


Pourquoi chercher plus compli- 
qué ? Le connecteur de jeu offre 
une variété de signaux d'entrées/ 
sorties propre à nous satisfaire. 


Vous pourrez 
trouver, page 53 de 
ce numéro, un 
article sur les 
problèmes 
généraux de liaison 
Apple/Minitel 


À chaque entrée logique est 
associé un commutateur logiciel. 
Leurs adresses-mémoire sont 
-16287 à -16285 ou $CO061 à 
$C063. C'est le bit de poids fort 
(bit 7) qui informe de l'état de la 
commutation alors que le reste de 
l'octet est indéfini. 


En Basic, il suffit de lire le 
commutateur avec un PEEK et de 
le comparer avec la valeur 128. Si 
la valeur est égale ou supérieure à 
128, le commutateur est à 1 ou, 
pour notre application, le micro- 
contact est fermé (effraction). 


Pour les entrées analogiques, 
l'Applesoft donne un moyen 
rapide d'évaluation par l'instruc- 
tion PDL, avec pour argument le 
numéro (0 à 3) de la manette. 
Chaque capteur doit évidemment 
être étalonné. 


Pour les sorties logiques (ici les 
relais), la commutation logicielle 
utilise cette fois une paire 
d'adresses, une met l'annoncia- 
teur à O tandis que l'autre le met à 
1. Le simple fait d'accèder à une 
adresse (une lecture par exemple) 
suffit pour l'activer. 


Le composeur automatique de 
numéros téléphoniques illustre un 
exemple de leur programmation. 
Les trois paires d'adresses libres 
vont de -16294 ($COSA) à 
-16289 ($COSF). 


L'ACIA, 
du travail en série 


La manière la plus simple 
d'utiliser la SSC est encore de se 
servir du ‘firmware’ de la carte. 
Tapez les commandes PR#2 et 
IN#2 en mode direct, ou précé- 
dées par un CHR$(4) dans un 
programme Basic, et le tour est 
Joué. Tout ce que vous tapez sur 
le clavier de l'Apple est 
instantanément tranféré sur les 
écrans de l'Apple et du Minitel, et 
de même si vous tapez sur le 
clavier du Minitel. 


Le revers de cette facilité est, 
d'une part une certaine lenteur et, 
d'autre part, un manque de 
cautrôle sur les incidences du 
logiciel. Pour ces raisons, nous 
avons préféré programmer direc- 


tement les entrées-sorties de 
l'ACIA (l'ACIA, ou ‘Asynchro- 
nous Communications Interface 
Adapter’ est le circuit intégré 
principal chargé de la ‘sérialisa- 
tion’ et des transferts de don- 
nées). 


Deux registres sont à connaître : 
le registre tampon double d'émis- 
sion/réception et le registre d'état, 
qui ont respectivement leur image 
en mémoire aux adresses $COA8 
(TDREG / RDREG) et $COA9 
(STATUS), si la carte est enfi- 
chée dans le slot 2 (pour l'activer, 
faites un saut en $C200). 


Chaque bit du registre d'état, pris 
isolément, indique l'état de cer- 
tains registres ou de certains si- 
gnaux. Dans notre cas, ce sont 
les bits 3 et 4 qui retiennent notre 
attention. Le bit 3 est positionné à 
1 si le tampon de réception est 
plein. Attention, c'est l'inverse 
pour le bit 4 qui est à 1 si le 
tampon de transmission est vide. 


Programme TELEALARME" KS 


tt EEE EEE EEE HER EX 


pol 
ol 
£< 

* 


TELEALARME 


* 
* 
* Bernard HOYEZ 
* Jean-Luc NAIL 


# 
* 
# 
* 
* 
* 


D tt 8 8 6 8 8 te Et tt 


Oo © y o U & & N Hi 
el 
mi 
= 


= D À Li Oo N do 


Ce schéma est extrait du numéro 22 de Pom's 
(“Composition de numéros de téléphone” ) 





Pour tester si un caractère est 
entré ou sorti, il suffit de faire 
respectivement un AND $8 ou un 
AND $10 avec l'octet de status et 
d'examiner l'indicateur de zéro. 


Le caractère reçu ou à émettre est 
placé dans la mémoire 9 qui 
intervient dans les transferts entre 
la routine machine et le 
programme Basic. 


Le Minitel, 
agent de liaison 


Le Minitel est un Modem bien 
particulier qui interprète certaines 
séquences de codes pour son 
propre compte. L'ensemble de 
ces mots réservés constitue le 
vocabulaire de la norme Vidéotex 
Télétel détaillée dans la notice 
technique du Minitel ou dans 
quelques ouvrages disponibles en 
librairie. Un, deux, trois, quatre 
ou cinq octets servent à construire 


GOSUB 100: 


ces mots. Non seulement, le 
Minitel comprend ce langage, 
mais il y répond parfois en émet- 
tant une séquence appropriée. 


Les principales fonctions du lan- 
gage sont les suivantes : 


* modifier le mode de fonction- 
nement du terminal (vitesse 
d'échange avec le périphé- 
rique, aiguillage des différents 
modules, connexion et décon- 
nexion..….) ; 

+ modifier les caractéristiques de 
visualisation (passage du jeu 
alphabétique au jeu semi- 
graphique, taille et couleur des 
caractères...) ; 

+ générer les séquences de codes 
correspondant aux touches de 
fonction (Envoi, Suite, Annu- 
lation...) ; 

* indiquer l'état du terminal (vi- 
tesse, aiguillages des modules, 
présence d'une porteuse.) ; 

* mettre en marche la procédure 
de correction d'erreurs ; 


REM chargement des routine 


s et des variables 


20 GOTO 1000: REM programme principal 

SO" 

100 REM  *** COMMANDES VIDEOTEX **#+##+#+#% 
Httttttt tt tt HER RE 

110 ES$ = CHR$ (27) 

120 EF$ = CHR$ (12): REM EFFACEMENT D'EC 
RAN 

130 RC$ = CHR$ (10) + CHRS (13) 

140 DHS$ = ES$ + CHR$S (77): REM DOUBLE HA 
UTEUR 

150 FL$ = ES$ + CHR$S (72): REM FLASH 

160 VT$ = ES$ + CHR$S (82): REM FOND VERT 

170 P1$ = ES$ + CHR$ (57): REM PROl 

180 CO$ = P1S$ + CHRS$S (104): REM CONNEXIO 
N 

190 DES = P1$ + CHR$S (103): REM DECONNEX 
ION 

200 OP$ = P1$ + CHRS$ (111): REM OPPOSITI 
ON 

210r à 

300 REM #tt MESSAGES *### xt 4 tt EEE 
D tt 8 2 78 5 Et Et 

310 ALERTES = EF$ + RC$ + RCS + VTS + DHS 
#5 pi Æ ALERTE , Æ 

CHRS$ (31) + “KA" + DHS$ + "REPONDEZ E 
SÉRRGPRNE SV N “TAPANT "+ VIS # °" OK “ 

320 M1$ = EFS$ + RC$ + DH$ + "MERCI D'AVOIR 

REPONDU" + RC$ + RC$ + "CECI ETAIT UN 


E SIMULATION D'EFFRACTION" + RC$ + RC$ 
+ "CHEZ MARTIN .." 
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- télécharger les mémoires vives 
du Minitel ou identifier au 
contraire ces mÉMOIres. 


La connaissance de la norme 
Télétel est indispensable pour 
l'écriture d'un logiciel serveur 
ou, inversement, pour l'ému- 
lation d'un Minitel. Elle présente 
moins d'importance dans notre 
application de téléalarme. Les 
séquences de codes essentielles 
ou les plus usitées ont été 
introduites dans des variables 
chaînes, rassemblées en tête du 
programme. Pour les transmettre, 
1l suffit de faire appel au sous- 
programme d'affichage d'une 
chaîne (ligne 800). Retenez 
surtout les séquences de 
connexion (CO$), de déconne- 
xion (DES), d'opposition (O PS) ; 
les autres ne concernent que la 
mise en page des messages. 


Une fois votre dispositif en place, 
vérifiez son bon fonctionnement : 


* en dehors de l'alarme, le dia- 
logue entre l'Apple et le Minitel 
s'établit-il lorsque vous validez 
la carte SSC (PR#,IN#) ? ; 


* avant d'importuner vos amis, 
testez “en local” la réponse à 
une alarme simulée. Pour cela, 
‘shuntez’ la demande de 
connexion en oblitérant les 
lignes 1080 et 1090. Sup- 
primez l'appel au sous- 
programme de composition de 
numéro téléphonique (ligne 
1050). Pour déclencher l'alar- 
me, utilisez indifféremment le 
micro-contact, la touche @ ou 
le bouton-poussoir. Votre 
Minitel doit alors afficher les 
messages d'alerte auxquels 
vous répondrez sur son 
clavier. Un ‘F’, en haut à 
droite de l'écran précise que 
vous n'êtes pas connecté. 

- enfin, assurez vous que l'appel 
téléphonique automatique se 
réalise bien et que le Minitel 
prend la ligne. Rétablissez 


pour cela toutes les lignes du 
programme et ajoutez en 
DAT A une liste de vos proches 
amis. Normalement, l'Apple 
affiche le numéro qu'il com- 
pose puis un ‘C’ prend alors la 
place du ‘F’ sur l'écran du 
Minitel. 


Si tous vos essais sont fructueux, 
vous êtes en possession d'un 
système d'alarme bon marché et 
adaptatif dont les performances 
rivalisent avec celles d'appareils 
spécialisés. 

Plus encore, ces quelques lignes 
vous auront peut-être fait décou- 
vrir les immenses possibilités 
d'ouverture de votre ordinateur 
sur le monde extérieur. 








330 M3$ = "MESURE ANALOGIQUE "“ ; 
340 M4$ = "NUMERO DE RIPOSTE (1,2,3) ? " 670 FOR I = 1 TO LEN (X$) 
350 : 680 À = ASC ( MIDS (X$,1I,1)) + 128 
400 REM  *** ROUTINES MACHINE **x*xx*+#æxxx+#x 690 POKE 7,A 
XXE 700 CALE PTT 
410 SLOT = 49664 710 PRINT CHRS (A); 
420 ENTRE = 768 720 FOR T = 1 TO 600: NEXT T 
430 AFFICHE = 779 730 NEXT I 
440 PTT = 792 740 RETURN 
450 : 800 REM  *** AFFICHAGE D'UNE CHAINE **** 
460 FOR I = 768 DO 832 XHRHÉRÉÉÉRÉRÉARAAREEEEXEX 
470 READ X: POKE I,X 810 FOR J = 1 TO LEN (A$) 
480 NEXT I 820 X = ASC ( MIDS (AS$,Y,1)) 
490 DATA 173,169, 192,41,8,173,168,192,13 830 POKE 9,x 
3, 9, 96 840 CALL AFFICHE 
500 DATA 173,169, 192, 41,16, 240, 249,165, 850 NEXT J 
9,141, 168, 192, 96 860 RETURN 
510 DATA 165,7, 201,176,144,17, 201,186, 870 : 
176,13#41,15,208,.2, 169,10,170, 32, 48, 3; 1000 REM *** PROGRAMME PRINCIPAL *****xxx* 


HARAS HARÉEARREARÉEEAREHHEE 


202, 208, 250, 96 


530 DATA 169,159,141, 88, 192, 32,168,252,1 1010 IF PEEK ( - 16287) > 128 THEN P0# = 
69,108, 141, 89, 192, 32,168, 252, 96 1 

540 RETURN 1020 IF PEEK ( - 16286) > 128 THEN P1$% = 

550 :s 1 

600 REM ***COMPOSITION NUMERO ****###x%%% 1030 IF PEEK ( - 16285) < 128 THEN P2% = 
ELLE LLLLLLLLLELELLLL) “l 

610 HOME 1040 IF NOT (P0% OR P1% OR P2%) THEN 100 

620 READ X$: IF X$ = "FIN" THEN END 0 

630 POKE 49241,0: REM PRISE DE LIGNE 1050 GOSUB 600: REM APPEL*** 


640 FOR I = 1 TO 700: NEXT I 1060 FOR Q = 1 TO 200: NEXT Q 
650 HOME 1070 CALL SLOT 
660 PRINT : PRINT "Je compose le numéro “ 1080 A$ = OP$ + COS 





Pom's n° 27 9 
D _— 





1090 GOSUB 800: REM AFFICHAGE 


1100 F1 = 0:F2 = 0 Source'T.ALARME’ Assembleur Big Mac 
1110 TE 0 NB : Ce source, sur la disquette d'accompagnement de la 
1220 T = TA revue, est sauvegardé en format ‘TEXT‘ pour permettre 
1130 AS = ALERTES la récupération par votre assembleur. 
1 LRLALÉELA ETES ELLELSELELLZLEE 
1140 GOSUB 800 2e ’ 
1150 FOR I = 1 TO 200 um ; 
°1160 CALL ENTRE SO sreereremeeeeseeresenuns 
= LL LL _ é 
TIS70 : IF PEEK (9) = ASC (“O") THEN F1 = ne lo ADRTDIEE 
1180 CALL ENTRE SI STATUS - $SCU29 Registre d'état carte SSC 
10 CATE - $C048 ;Registre entrée/sortie données 
1190 IF PEEK (9) = ASC ("K") THEN F2 = 11 CHIFERE = $7 
J 12 CARACT = $3 ‘paramètre transfert Basic 
13 SETANO - $c059 ‘Sortie binaire paddie mise à 1 
1200 IF F1 AND F2 THEN 1250 14 CLRAND = $CO58 :sortie binaire paddle mise à 0 
D2NO NEXT I 15 #EIT - $FCA8 ;routine tempo du moniteur 
16 
1220 IF T > S THEN POKE 49240,0 17 ORG $300 
18 
1230 IF T > 10 THEN AS$ = DES: GOSUB 800: eme ntse oVearsetie 


FOR G = 1 TO 500: NEXT G: POKE 49321,1 2 


21 16$ST LODA STATUS :$S1 le bit 3 du registre d'état est à 1 


28: GOTO 1050 re : 
sceci n'à pas d'utilité dans notre cas 
1240 GOTO 1120 23 AND #08 jun Caractère est présent 
= " 2€ ä it pu le tes!’ par un BE 
1250 Je FO Thé S0Sne * COCO LAON VE quon, rene 
NE" + RC$ + RC$ 26 STA CARACT 
1260 IF PIS THEN S1$"æ " CIRCUIT 2 ACTION Le 
NE" + RCS$ + RCS$ 29 +*----> Sortie de caractère 
= " 30 
1270 IF P2# THEN s2$ = CIRCUIT 3 ACTION 31 Lo8P LBA STATUS :Si le bit 4 du registre d'état est à 1 
NE" + RCS 6 à RC$ 32 AND #510 ‘on peut transmettre la donnée 
1280 E0$ = STR$ ( PDL (0)):E1$ = STR$S ( 2 nt 
34 LDA CARACT 
PDL (1)) *E2$ = STRS ( PDL (2)) :E3$ = 35 STA DATA :Sortie du caractère 
STR$ ( PDL (3)) wi 


1290 AS$ = MIS + CHRS (31) + "JA" + DHS + 38 *—-—-> Composition numéro 
VTS + SO0$ + S1$ + S2$ + RCS$ + RC$S + M3 % 


40 LDA CHIFFRE 
$ + "1 = " + E0$ + RC$S + RCS + M3$ + 41 AD F0 
"2 = " + E1lS$S + RC$S + RC$S + M3$S + "3 > _. Fan :séparateur entre chiffres 
=, “+ E2$ + RCS + RCS + M3$S "4" 44 BCS SEPARE 
+ E3$ 45 AND #31111 :f{ltrage 
1300  GOSUB 800 # D od 
1310 AS = RC$ + RCS + M4S 48 COMPOSE TAX 
49 BOUCLE = . 
1320 GOSUB 800 50 JSR PULSE 
1330 CALL ENTRE 51 DEX 
s2 BNE BOUCLE 
1340 X# = PEEK (9) - 48 RS Le 
1350 IF (X$ < 1 OR X$ > 3) THEN 1330 54 
55 PULSE LDA #159 «delai de 66 ms 
1360 PRINT PEEK (49241 La X#) 56 STA CLRANO ts de la ligne téléphonique 
1370 A$ = RC$ + RC$ + VTS$ + " RIPOSTE " + 57 JSR WAIT 
. à 58 LDA #108 :delai de 33 
STRS$ (X#) " ACTIONNEE 54) STA SETANO Mrs NE: de 1a ligne téiléphoniqu 
1380 GOSUB 800 60 JSR WAIT 
1390 END ie RTS 
1400 DATA 3541: REM MONSIEUR X Récapitulation ‘ALARME: 


1405 DATA 35654321 : REM MONSIEUR Y 


1410 DATA FIN Ce code est inclus dans le programme Basic. 


Ter COTES TEST die Piroiexsr Or MR ER M PT GUN QT UN CE EAN NE PT a" JÉSN CÉSENININEOC ENT € € FE 


A, 


Accompagné d'une cinquantaine de pages de documentation, Disk Manager permet de recréer les commandes du Dos, 
redéfinir l'organisation d'une disquette, grâce à un jeu d'instructions qui en fait un langage simple d'accès à la disquette. 
Il offre également un programme d'édition à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disquette : 


- Utli-disque : reconstruction d'une disquette détruite, Vérification, ® k M 
Plan d'occupation Ôis anager 


- Ultra-copie : pour un backup particulièrement rapide e 
- Edicat : Edition du catalogue, classement des fichiers, Titres... le Dos en Kit 
- Multi-disque : pour le classement de tous vos programmes (tri instantané). 





de Dan Steerey 


CE ls SSI IS TS ACT NEC SIT CT AIT E DA CCC CT CE GTA CEE LIT AT 


NL SLALSS SL SARL S 





10 Pom's n° 2° 
D 





Un Carnet d’Adresses 


Boris Fivolewski 


ans remplacer les 

carnets d'adresses 

traditionnels, ni avoir 

la prétention d'égaler 
une gestion de fiches 
sophistiquée. ou un logiciel de 
communication, ce programme 
offre des possibilités 1in- 
téressantes (du moins nous 
l'espèrons) comme la composi- 
tion automatique d'un numéro de 
téléphone. Et surtout, il est écrit 
essentiellement en Basic ; vous 
pourrez donc le modifier facile- 
ment en fonction de vos besoins. 


Mode d'emploi 


La gestion du fichier d'adresses 
est volontairement simplifiée pour 
permettre une utilisation du 
programme aussi bien en DOS 
3.3 ou en ProDOS. 


Vous devez avoir sur la même 
disquette le programme CARNET 
et les deux fichiers ADRESSES 
et INDEX. S'il n'y a pas de 
fichier INDEX sur la disquette un 
nouveau carnet est créé au 
démarrage. Vous ne devez pas 
par la suite retirer la disquette du 
lecteur, les données étant lues au 
fur et à mesure en fonction des 
commandes, ce qui permet 
d'avoir des fichiers très 
importants (avec un unidisk par 
exemple) qui ne pourraient tenir 
entièrement en mémoire vive. Sur 
une disquette 5" 1/4 la limite est 
d'environ 400 fiches, mais avec 
d'autres supports vous pouvez 
allcr jusqu'à 1200 fiches. 


Attention : le fichier CARNET de 
type Basic est facilement conver- 
tible en ProDOS à l'aide des 
Utilitaires Système. Il n'en est 
pas de même pour les fichiers 
ADRESSES et INDEX qui sont à 
accès relatifs. Choisissez donc, 
avant d'enregistrer quoi que ce 
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. Nouveau carnet 


. Quitter le programme 


(Tapez_un nombre ou presser + ou ? pour sélectionner une option.Puis presser d_ | 


soit, le système d'exploitation 
que vous utiliserez. Le passage 
de l'un à l'autre étant délicat par 
la suite. 


Description 
des commandes 


Introduction en continu 


Les différentes rubriques sont les 
suivantes : 


+ Nom 

+ Prénom 

* Adresse 

+ Vile 

+ Téléphone 

- Renseignement 


Les rubriques téléphone et rensei- 
gnement peuvent être utilisées par 
exemple pour définir une procé- 
dure de connection automatique à 
un serveur en couplant la com- 
mande 6 (voir ci-après) avec un 
logiciel de communication. 


La rubrique Nom n'accepte que 
les lettres majuscules et les carac- 
tères apostrophe et tiret ; les 
minuscules sont automatiquement 
converties en majuscules ; les 
autres caractères ne sont pas pris 
en compte. Pour les autres rubri- 
ques, il n'y a pas de limitation 
excepté pour les caractères de 
contrôle. 





———— 


2. Recherche d'une fiche 


5 
6. Composition œtomatique 
7 
(e) 


3. Modification d'une fiche 
4. Suppression d'une fiche 


| 
El 
. Liste alphabét que 1 


Pour passer à la rubrique suivante 


utilisez ou L . Pour revenir à la 
rubrique (ou champ) précédent 


utilisez T. 


Dans un même champ vous 
pouvez vous déplacer à l'aide des 
touches + et = . Pour effacer le 
caractère que vous venez de 
taper, utilisez la touche “Delete”. 


Quand le dernier champ est 
complété, la fiche est enregistrée 
sur le disque. Si vous voulez 
retourner au menu principal sans 
enregistrer la fiche, pressez la 
touche ‘Escape’. Sinon, complé- 
tez l'enregistrement puis pressez 
1 ou ‘Escape’. 


Recherche d'un nom 


Vous pouvez entrer soit le nom 
en entier, soit le nom abrégé suivi 
par un point. Dans le premier cas 
le programme affichera toutes les 
fiches portant le même nom, dans 
le deuxième cas toutes celles 
commençant par le nom abrégé 
quelle que soit la longueur de ces 
noms. 


La recherche se fait dans un 
tableau en mémoire vive, elle est 


donc relativement rapide. Quand 


les numéros des fiches recher- 
chées sont trouvés, le programme 
lit leurs différents champs sur le 
disque. La clef utilisée est de 12 
lettres ; au delà, les noms sont 
considérés comme identiques. 


Quand vous avez trouvé la fiche, 
vous pouvez l'imprimer. 


Modification 
d'une fiche 


La recherche de la fiche se fait de 
la même façon que ci-dessus, 
mais VOUS avez ensuite accès aux 
différents champs de la fiche afin 
de les modifier. Les possiblités 
sont les mêmes que pour l'enre- 
gistrement en continu. 


Suppression 
d'une fiche 


La recherche de la fiche se fait de 
la même façon que ci-dessus. 
Avant de supprimer la fiche, le 
programme vous demande de 
confirmer. 


Liste alphabétique 
à partir d'un nom 


La liste commence au nom que 
vous choisissez. Si vous voulez 
lister à partir du début, tapez 
directement .1. Vous pouvez 
interrompre momentanément l'af- 
fichage à l'aide de la barre 
d'espacement. N'importe quelle 
touche permet de reprendre la 
liste. Pour interrompre définiti- 
vement, pressez ‘Escape’. 


Composition 
automatique 


Vous avez sans doute trouvé que 
le programme qui accompagnait 
le composeur automatique de 
numéro de téléphone — Pom's 
numéro 22 pour le //e, 23 pour le 
JIc — était un peu sommaire. 
L'option 6 permettra d'utiliser 
pleinement le circuit que vous 
aurez construit à cette occasion. 

Si le numéro comprend des 


parenthèses le composeur consi- 
dère les chiffres entrés comme un 


indicatif et 1l vous demande s'il 
faut le composer ou non. De plus 
vous pouvez ajouter des tempori- 
sations pour attendre une tonalité 
après un indicatif. Le symbole ‘-” 
correspond à une pause d'une 
seconde, le symbole ‘+’ à une 
pause de dix seconde. Exemples : 


* numéro en région parisienne : 
(16 -- 1) 12 34 56 78 (Si 
l'indicatif est composé, la 
pause entre l'indicatif et le 
numéro est de 2 secondes) 

° numéro en province : (16 +-) 
12 34 56 78 (Dans ce cas la 
pause est de 11 secondes) 


Note : le programme, contraire- 
ment à ceux des numéros 22 et 25 
de Pom's, détecte si vous utilisez 
un Apple Ile ou lic ; vous pouvez 
donc l'utiliser sur une machine ou 
sur l'autre à condition d'avoir 
réalisé le circuit correspondant. 


Création d'un 
nouveau carnet 


Cette commande permet d'effacer 
totalement un carnet pour en créer 
un nouveau. À utiliser avec 
prudence. 


Description 
technique 


Les caractères 
spéciaux avec la 
carte 80 colonnes 


Le programme utilise largement 
les possibilités des divers carac- 
tères de contrôle qu'autorise la 
carte 80 colonnes. Les caractères 
de contrôle qui suivent sont uti- 
lisables avec la fonction PRINT 
dès que l'on a fait PR#3. 


Tabulation : 


+ BS$ = CHRS$(8) : curseur un 
cran à gauche ; 

+ FS$ = CHRS$(28) : curseur un 
cran à droite ; 

+ VT$ = CHRS$(31) : curseur 
une ligne au dessus (même 
position horizontale) ; 

+ _LF$ = CHRS$(10) : curseurune 
ligne au dessous (idem). 


Effacement : 


+ CHRS$(26) : effacement de la 
ligne ; 

+ CHR$(11) : effacement jus- 
qu'en bas de l'écran ; 

- CHR$(29) : effacement jus- 
qu'en fin de ligne. 


Mode d'affichage : 


* CHR$(18) : affichage en 80 
colonnes ; 

+ CHR$(17) : affichage en 40 
colonnes (mais gestion par la 
carte 80 colonnes) ; 

° CHRS$(21) : retour à l'affi- 
chage normal en 40 colonnes. 


Les icônes souris : 
+ I$ = CHR$(15) : mode in- 


verse ; 
+ N$ = CHRS(14) : Mode nor- 


mal ; 
+ ICS = CHRS$(27) + I$ : mode 
icône puis mode inverse ; 
°_NI$ = CHRS$(24) + NS : fin du 
mode icône puis mode normal. 


Ces caractères permettent de 
modifier plusieurs fois le mode 
d'affichage pendant le même 
PRINT. Sur les anciens //e, les 
icônes n'étant pas disponibles, 
IC$ et NIS$ n'ont aucun effet. 
Exemple d'utilisation : l'affichage 
de la variable CR$ = IC$ + "M" 
+ NI$ donnera l'icône 1. 


Note : pour que le programme 
puisse tourner sur un/le non mis 
à niveau, un test est effectué au 
début afin de déterminer si 
l'affichage utilisera ou non les 
possibilités graphiques des icônes 
SOurts. 


Les programmes 
en langage machine 


Ces programmes, au nombre de 
quatre, sont chargés par le 
programme en Basic sous forme 
de DATA qui sont ‘POKés’ en 
page 3. Ils sont tous relogeables, 
peu importe donc leur ordre, 
pourvu qu'ils ne se chevauchent 
pas. Les deux premiers sont déjà 
parus dans Pom's, donc seuls les 
sources des deux derniers sont 
listés. 


GER est la routine classique qui 





accompagne un traitement d'er- 
reur, il est inutile de la présenter. 


COMP assure la même fonction 
que les programmes ‘COMPO- 
SEUR’ déjà cités. Il est par 
contre relogeable et fonctionne 
aussi bien sur le //e ou le //c. 

IN est un input généralisé qui 
permet d'accepter tous les 
caractères. [1 est utilisé pour lire 
le fichier ADRESSE” sans avoir 
de problème avec les virgules ou 
autres. 


Programme ‘CARNET’ 


NB : Les 


‘puces’° symbolisent les 
espaces pour simplifier la saisie. 


G80 est un programme d'entrée 
de caractères en 80 colonnes. Il 
est surtout utile pour éviter les 
inconvénients de la fonction GET 
en 80 colonnes sur un Apple //e, 
en particulier l'interception de la 
touche ‘Escape’ ou la confusion 
entre la flèche droite et le carac- 
tère espace (ces inconvénients 
n'existent pas sur un //c). De 
plus, il permet de redéfinir le 
curseur. 





Les fichiers 


- CARNET 

programme 

ADRESSES et INDEX 
fichiers de données créés à 
linitialisation 

T.G80 et T.IN 
sources de G80 et de IN 
(ProCODE ou Big Mac) 





290 C$ = MIDS$S (C$,1,L): RETURN 

399 > 

499 : 

500 REM Recherche du code d'un nom entre 


deux limites 


O0  REM CARNET D'ADRESSES (C) BORIS FIVOLEW SOUS REM === === SR 
SKI 1986 510 N = 0:J = 0: FOR I = 1 TO NF 
1 REM === ©20 J = J + 1:Y0 = X(J,0):Y1 = X(J,1): IF 
10 ONERR GOTO 20000 YO = O0 GOTO 520 
20 GOTO 10000 530 IF (20 < YO OR Z0 = YO AND Z1 < = Y1 
99 : 6 ) AND (YO < X0 OR YO = X0 AND Y1 < X1) 
100 REM Entrée d'un mot THEN N=N+l:N(N) = J 
HO REM => 540 NEXT I 
110 MA = l: GOTO 130 550 RETURN 
120 MA = 0: GOTO 130 599! + 
130 I = 1:C$ = MIDS (CS$,1,LM):P = PEEK ( 600 REM Codage d'un nom sur 12 lettres 
1403): PRINT C$;: POKE 1403,P 601 REM --------- 
140 CALL G80:K = PEEK ( - 16384):K = K 610 L = 0:J = 0: FOR I = 1 TO 12 
129 % (Ka>4127) 620 IF I = 7 THEN X0 = J:J = 0 
150 IF K = 27 THEN : POP : RETURN 630 L = L + l: REM Ignore blanc,tiret et a 
160 IFK =10 OR K = 11 OR K = 13 GOTO 26 postrophe 
0 640 K$ = MID$S (CS$,L,1): IF K$ = “"“ THEN K 
170 IF (K = 8 OR K = 127) AND I > 1 THEN $ = “â" 
I = I - des PRINT BS$:x IF K = 8 GOTO'1 650 IF ASC (KS$) - 64 < O0 GOTO 630 
40 660 J=J * 27 + ASC (KS) - 64 
180 IF K = 127 THEN P = PEEK (1403) :K$ = 670 NEXT I:X1 = J 
MID$S (C$,I + 1,LM + 1 - I):C$ = MID 680 RETURN 
9 (ES,1ÿT = 1) "+ RSS MRINT KSF" "es: RO 699 : 
KE 1403,P: GOTO 140 700 REM Lecture d'une fiche 
190 IF K = 21 AND I < LM THEN I = I + l: 701 REM ------—— 
PRINT FS$; : GOTO 140 710 CALL IN,NOS$S: CALL IN,PRS: CALL IN, ADS 
200 IF MA AND (96 < K AND K < 123) THEN K : -CALL IN, VIS: CALL IN,TES$S: CALL IN,RE 
= K -— 32 $: PRINT DS 
210 IF MA AND ((K < 65 OR K > 90) AND K < 720 PRINT TMS; 
> 32 AND K < > 45 AND K < > 39 AND 730 PRINT "NOM: ";NOS$;: POKE 36,41: PRINT 
K < > 46) THEN PRINT BLS$S;: GOTO 140 “Prénom: ";PR$S: PRINT "Adresse: ";ADS 
220 IF K < 32 THEN PRINT BL$;: GOTO 140 : PRINT "Ville: ";VIS$S:: POKE 36,46: PR 
230 K$ = CHR$S (K):C$ = MID$S (C$ + BB$,1, INT "Téléphone: "; TES: PRINT "Renseign 
I = 1).+ K$t+ MIDS (C$,:T + 1,LM - ement: ";RES 
240 I =I + l: IF I > LM THEN K$ = K$ + BL 740 RETURN 
$ + BS$:I = I - 1 799 
250 PRINT K$;: GOTO 140 999 : 
260 L = LEN (CS$): IF L = O0 GOTO 290 1000 REM Insertion d'une fiche 
270. :KOR I = LE TO 1 STEP — l: IF MIDS (C 1001 REM ==========--=-========= 
Solo). < >: 0 M ATHENT DL = Lil = 1 1010 NOS = UM:DRS = "es ADS = MMSVIS ee "ST 
280 NEXT I E$ = "":RES$S = "" 
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1020 
1021 
1030 
1040 
1050 
1060 
1070 


1080 
1090 


1100 
1101 
1110 
1120 
1130 


1140 
1150 


1160 


1170 
1180 


1190 
1200 
1201 
1210 
1220 
1230 
1240 
1250 
1260 


1270 
1280 


1290 
1300 
1310 
1320 
1500 
1501 
1510 
1520 
1530 
1540 
1550 
1560 


1570 


1580 


REM Recherche point d'insertion 
REM 


IF PF = MF + 1 GOTO 1070 
FOR I = PF TO MF 
IF X(I,0) = O0 THEN PF = I: GOTO 1080 


NEXT I:PF = MF + 1 

PRINT : PRINT BL$; "Attention le fich 
ier est plein, vous ne pouvez plus in 
sérer de fiche! ";: GET K$: RETURN 
FF = PF 
P = PEEK (37): 
T "Nombre de fiche(s): 
1 

REM Entrée d'une fiche 
REM 


VTAB 3: HTAB 26: PRIN 
MeNF: VTAB.P' + 


KK = l: GOTO 1170 

IF K = 11 GOTO 1150 

IF KK < > 1 AND KK < > 4 THEN PRI 
NT 


KK = KK + 1: GOTO 1170 
KK = KK - l: IF KK = O0 THEN KK = l: P 
RINT BLS$; 

IF KK < > 1 AND KK < > 4 THEN PRI 
NT VTS$; 


HTAB 2: PRINT BSS$; 

ON KK GOTO 1510,1540,1550,1560, 1570, 
1580 

PRINT TMS; VTS 

REM Enregistrement d'une fiche 

REM 
PRINT DS$S"OPEN INDEX, L20" 
PRINT D$"OPEN ADRESSES, L256" 
PRINT D$S"WRITE INDEX, R"FF 
PRINT X0: PRINT X1 

IF FF < > PF G@TO 1270 
PRINT DS$"WRITE INDEX, RO": 
1:NF = NF + 1 

PRINT D$"WRITE ADRESSES, R"FF 

PRINT NO$: PRINT PRS: PRINT ADS: PRI 
NT VIS: PRINT TES: PRINT RES 

PRINT D$"CLOSE" 
X(FF,0) = X0:X(FF,1) = X1 

IF FF = PF GOTO 1000: REM Insertion 
en continu 

RETURN 

REM Rubriques 


PRINT NF + 


PRINT "NOM: ";::LM = 35:C$ = NOS: GOS 
UB 110:NO$ = CS 
GOSUB 600: IF X0 = 
GOTO 1120 

POKE 36,41: PRINT "Prénom: ";:LM = 3 
0:CS$S = PRS$S: GOSUB 120:PR$ = CS: GOTO 
1120 

PRINT "Adresse: ";:LM = 70:C$ = ADS: 
GOSUB 120:AD$ = C$: GOTO 1120 


PRINT "Ville: ";:LM = 38:C$ = 


O0 THEN RETURN 


VIS: G 


OSUB 120:VI$ = C$: GOTO 1120 
POKE 36,46: PRINT "Téléphone: 
= 22:C$ = TES: GOSUB 120:TES$ = 
TO 1120 
LM = 250 - 
LEN (ADS) - 


D 
C$: GO 


LEN (NO$) - LEN (PR$) - 
LEN (VIS) - LEN (TES): 


1590 


LM = 64 * (LM > 64) + LM * (LM < 65): 
IF LEN (RES) > LM THEN PRINT CHRS$ 
(29) > 

PRINT "Renseignement: ";:C$ = RES: G 

OSUB 120:RE$ = C$: GOTO 1120 


1999 


2000 


2001 
2010 
2020 
2030 


2040 


2050 
2060 
2070 


2080 
2090 
2210 


REM Recherche et impression d'une fi 
che 
REM 
GOSUB 2500 

IF K = 27 OR N = O THEN RETURN 
PRINT : PRINT “Impression de cette f 
iche (O/N) ? ";: CALL G80: PRINT 

K$ = CHR$ ( PEEK ( - 16384)): IF K$ 
< > "O" AND K$ < > "“o" THEN RETURN 


PRINT D$;"PR#l":I = 10 

PRINT SEC I)5"M "EPRS;:" "ANO$ 
PRINT SPC( I);ADS$: PRINT SEPC( I);V 
IS 

PRINT DS"PR#3" 

RETURN 

PRINT VTS$S;VTS 


2499 : 


2500 
2501 
2510 
2520 


2530 


REM Recherche des fiches 
REM 
N = 0: PRINT "NOM: ";:LM = 
C$ = NO$: GOSUB 110: PRINT 


35:MA = 1: 


GOSUB 600: IF X0 = O0 THEN PRINT "No 
m incorrect !": GOTO 2510 

20. = X0:Z1 = X1: IF RIGHTS (C$,1) < 
> ",." THEN X1 = X1 + 1:C$ = "portant 
le nom: " + C$: GOTO 2560 

C$ = C$ + “[": GOSUB 600: REM Astuce: 


Code ascii suivant celui de Z 
C$ = "commençant par: “ + LEFTS (CS$, 
LEN (CS) - 1) 

GOSUB 500: IF N = 0 GOTO 2670 

VTAB 3: PRINT “Il y a ";N;" fiches) 

"2“C$: HOME 

PRINT DS$S"OPEN ADRESSES, L256" 

FOR I = 1 TON 

PRINT D$"READ ADRESSES, R"N(I) 

GOSUB 700 

PRINT : PRINT "Est-ce la fiche que v 
ous recherchez (O/N) ? "; 

CALL G80:K = PEEK ( - 16384) :KS$S = 
CHRS (K): IF K = 27 GOTO 2680 


IF K$ = "O" OR K$ = "“o" GOTO 2680 
IF K$ < > "N" AND K$ < > "in" GOTO 
2630 


PRINT VTS$S;VT$: NEXT I 

PRINT : PRINT "La fiche que vous rec 
herchez n'est pas dans ce fichier.": 
PRINT " Pressez une touche pour reven 
ir au menu: ";: CALL G80:N = 0 

PRINT : PRINT DS"CLOSE" 

RETURN 


REM Modification d'une fiche 
REM 
GOSUB 2500 

IF K = 27 OR N = O0 THEN RETURN 
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Pom's n° 27 


3030 
3040 
3050 


FF = N(I) 
HOME : GOSUB 720 
VTAB 5: GOTO 1100 


3999 s 


4000 
4001 
4010 
4020 
4030 


4040 


4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 


REM Suppression d'une fiche 


REM ======================= 

GOSUB 2500 

IF K = 27 OR N = O THEN RETURN 
PRINT : PRINT "D'accord pour supprim 
er cette fiche (0O/N) ? ";: CALL G80: 
PRINT 

K$ = (CHR$ ( PEEK ( - 16384)): IF K$ 
< > "O" AND K$ < > “o" THEN RETURN 


PRINT D$"OPEN INDEX, L20" 
PRINT D$"WRITE INDEX, R"'N(I) 


4999 : 


5000 
5001 
5100 
5101 
5110 


5120 
5130 
5140 
5150 


5160 


5170 


5180 


5190 
5200 
5201 
5210 
5220 
5230 
5240 
5250 


5260 


5270 


5280 
5290 


5300 


5500 
5501 
5510 
5520 





PRINT" "Os PRINT "MO! 
PRINT D$"WRITE INDEX, RO" 
PRINT NF - 1 
PRINT D$"CLOSE" 
X(N(I),0) = O:NF = NF - l:PF = N{I) 
RETURN 
REM Liste à partir d'un nom 
REM ===> === 
REM Initialisation 
REM == 
PRINT "Nom d'origine: ";:LM = 35:C$ 
= NO$: GOSUB 110: PRINT : GOSUB 600 
K = O0:FF = 0: FOR I = 1 TO NF 
K=K + 1:Y0 = X(K,0):Y1 = X(K,1) 
N(K) = 0: IF YO = O0 GOTO 5130 
IF YO > XO OR YO = X0O AND Y1 > = X1 
THEN FF = FF + l:N(K) = 1 
NEXT I: IF FF = O THEN PRINT : PRIN 


T "Il n'y a aucune fiche après ce nom 

{11";: GOTO 5300 
C$ = "de " + CS: IF X0 = O0 THEN C$ = 
“du début" 

VTAB 3: PRINT "Liste de 
(s) à partir ";C$: HOME 
PRINT D$S'"OPEN ADRESSES ,L256" 

REM Lecture 

FOR I = FF TO 1 STEP - 1 
X0 = 987654321:K = 0: FOR J = 1 TO I 
K = K + l: IF N(K) = O0 GOTO 5230 
YO = X(K,0):YI = X(K,1) 

IF YO < X0 OR YO = X0 AND Y1 < X1 TH 
EN :X0 = YO:X1 = Yl:N=K 

NEXT J: PRINT D$"READ ADRESSES, R"N: 
GOSUB 700 

POKE - 16364,0: IF PEEK ( - 16384) 
= 32 THEN CALL G80 
IF PEEK ( — 163684) 
N(N) = O0: NEXT I: PRINT 
ière fiche."; 

PRINT " Pressez une touche pour reve 
nir au menu: ";: CALL G80 

REM Fin de la liste 
PRINT : PRINT DS"CLOSE" 
RETURN 


"*:FF;" fiche 


= 27 GOTO 5500 
: PRINT "Dern 


Pom's n° 27 


5999 : 


6000 
6001 
6010 
6020 
6030 
6040 
6050 


6060 


60 70 
6080 
6090 
6100 
6110 
6120 


6130 


6140 


6150 


6160 
6170 
6180 
6190 


6200 
6210 
6220 
6230 


6240 
6250 
6260 
6270 
6280 
6290 
6400 
6410 
6420 


6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 


6520 
6550 
6560 
6570 
6580 
6999 #: 
7000 


REM Composition automatique 


REM ==========zz=sse======= 

GOSUB 2500 

IF K = 27 OR N = O THEN RETURN 
PRINT VTS$; CHR$ (29) 
L = LEN (TES) 

IF L = O0 THEN PRINT "Pas de numéro 


de téléphone.": GOTO 6500 

PRINT "Je compose le numéro: ‘;: REM 
Prise de ligne 

IF IC THEN POKE 49322,8 

IF NOT IC THEN POKE 49241,0 

FOR J = 1 TO 1000: NEXT 
REM Composition 

FOR I = 1 TO L 
K$ = MID$S (TES$,1I,1):K = 
RINT KS$; 

IF 47 < K AND K < 58 THEN POKE 6,K 
— 48 + 10 * (K = 48): CALL COMP:KS$S = 
"-": REM Ajoute un délai d'1 seconde 
aprés chaque chiffre 

IF K$ = "-" THEN FOR J = 1 TO 1000: 
NEXT : REM Environ 1 seconde 

IF K$ = "+" THEN FOR J = 1 TO 10000 
: NEXT : REM Environ 10 secondes 

IF KS < © A GOTO.6290 
P = PEEK (1403) 

PRINT : PRINT "Indicatif (O/N) ? ‘> 
CALL G80:K = PEEK ( - 16384):K$ = 
CHRS$ (K) 

REM Indicatif ? 

IF K = 27 GOTO 6550 


ASC (Kÿ)r P 


IF K$ = "O" OR K$ = "o" GOTO 6280 
IF K$ < > "N" AND K$ < > "n" GOTO 
6190 
FOR J = I +1 TO L 
K$S = MID$S (TES,J,1):K = ASC (K$) 
IF K$ = "J" THEN J = L:I = I - 1 
I = I +1: NEXT J 
POKE 1403,P: PRINT VT$; CHRS$S (11); 
NEXT I 


REM Décrochage 
PRINT : PRINT CHRS$S (7) 


PRINT "Décrochez le combiné avant 
secondes"; 
EOR\ I = 10 "TO ! STEP - 1 


HTAB 28: PRINT SEC( Æ < 10) FT; 
FOR J = 1 TO 1000: NEXT 

NEXT I 

PRINT VTS 

IF IC THEN POKE 49322,0 

IF NOT IC THEN POKE 49240,0 
REM Fin 

PRINT "Pressez une touche pour reven 
ir au menu principal.";: CALL G80 
RETURN 

REM Escape 

IF IC THEN POKE 49322,0 

IF NOT IC THEN POKE 49240,0 
RETURN 


REM Créer un nouveau carnet 


7001 REM ======---=-----===- 

7010 HOME : PRINT " Attention en créant 
un nouveau carnet vous effacer le pré 
cédent s'il existe.": PRINT " Voulez 
-vous vraiment créer un nouveau carne 
t (O/N): "> 

7020 CALL G80:K$ = CHRS$ ( PEEK ( - 16384 
)) 

7030 IF K$ < > "O" AND K$ < > “o" THEN 

RETURN 

7040 PRINT 

7100 REM Destruction éventuelle 

7110 IF LI = 7130 GOTO 7140 

7120 IF LI = 7140 GOTO 7150 

7130 PRINT D$"DELETE INDEX" 

7140 PRINT D$"DELETE ADRESSES" 

7150 PRINT D$"OPEN INDEX, L20" 

7160 PRINT DS"WRITE INDEX, RO" 

7170 PRINT "0": REM Zéro pas "o" 

7180 PRINT D$"OPEN ADRESSES ,L256" 

7190 PRINT DS$"CLOSE" 

7200 RUN 

7999 ! 

9999 : 

10000 REM fétttttttttttttttttttt tt tt 

10001 REM **  DEBUT DU PROGRAMME ** 

10002 REM httktttttttttttttttttt tt tt et 

10010 TEXT : HOME :D$ = CHR$ (4): PRINT 
DS; "PR#3": REM 80 colonnes 

10020 PRINT : PRINT "POM'S présente:" 

10030 POKE 32,20: PRINT : PRINT 

10035 PRINT “"rttrtese**kktese**kkesetesetee 

+tktktthootkktxt" 

10040 PRINT "ressceskeoso*es*eookeo**eo*tee 

+kocecoree #" 

10045 PRINT "#rovovoo**#**koo*k*kkooo*e*o*es 

#kkoosooo*k" 

10050 PRINT "tosrcosokese*oo*oo*eeckee #*oe 

kosooseoo*k" 

10055 PRINT "etkttkkkoo*kose*eokecektec*kteec*ee 

ktktttocce*"” 

10060 POKE 32,9: PRINT : PRINT 

10065 PRINT "oo*ose *ooo*kkooo**kteso**kXe 

co +tkktkosoekkttonottktos*ttktonoe** txt 

10070 PRINT "ooteos*ooo*oeso*oo*k*oos*oe*ece* 
cotococoo*socccokooosoe*ecesee*!! 

10075 PRINT "##ttessses***#*kesksesektes*k*the 

RAR ktkkoncek tone ktttosvses***! 

10080 PRINT “*otosoooo*ooo*k*eo*ooo*oo*o0*s 
cokosoccsossskorvoootestocccecccee*" 

10085 PRINT "**tessoso*ess*oe#*k#kess*es sx 

cotttttootkihhenettttese tt ttes 

10090 POKE 32,0: PRINT : PRINT 

10095 PRINT "Veuillez patienter, merci." 

10099 : 

10100 REM Variables principales & caractè 
res spéciaux 

10101 REM === 

10110 I = J:X0 = X1:Y0 = Y1:Z0 = Z21:MF = 5 
00: DIM X(MF,1),N(MF) 

10120 BS$ = CHR$S (8):FS$ = CHRS (28) :VTS 

= CHR$S (31):BL$ = CHRS (7) 
10130 I$ = CHR$ ({15):N$ = CHRS$S (14):1CS$ 


10140 


10150 


10160 


10170 


10180 
10190 


= CHR$ (27) + IS:NIS$ NS + CHRS$S ( 


24) 
IC = PEEK (64448):IC = (IC = 0) + ( 
IC = 224) 
BB$ = " 
":BE$ = BB$ + BB$ 
TB$ = " 
":TB$S = TB$S + TES 
TM$ = "SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SSSSSSSSSSS":TMS = ICS + TMS + TMS + 
NIS + CHRS (26) 


10199 >; 


10200 
10201 
10210 
10220 


10230 
10240 


10250 


10260 


10270 


10280 


10285 


10290 


10295 


IF IC GOTO 10200 

TMS VEN MS SRE ESS Sn 
= ":TMS = TMS + TMS 

REM Sous programmes en binaire (re 
logeable) 

REM === 
GER = 768: REM Gestion d'erreurs 
DATA 104,168,104,166,223,154, 72, 152 


172,996 

IN = GER + 10: REM Input généralisé 
DATA 32,490,222,32,227,,;223,,32;,,44,24 
3, 162;255,232, 189,072 208 #250,138;" 16 
0,0, 145,131,32, 82,228, 72; 52060 /2781 
45,131, 136, 138, 145, 131, 162,0,200, 104 
327226220,396 


G80 = IN + 43: REM GET clignotant en 
80 colonnes 
DARA 165,37,92;, 193,2541,,165,36, 20521 


23, 4,208, 3, 173, 123, 5, 74, 168, 141, 84,1 
92,176, 3, 141, 85, 192, 177, 40, 170, 138,2 
09, 40, 208, 2, 169 

DATA 223,145, 40, 169, 0, 24, 72, 44,0,19 
2, 48,11,233, 1,208, 247,104, 233, 1, 208, 
241, 240, 227, 104, 138, 145, 40, 141, 16, 19 
2,141, 84,192, 96 


COMP = G80 + 68: REM Composition a 
utomatique 
DATA 166,6, 160, 0, 169, 160, 140, 88, 192 


, 32, 168, 252;160,8;, 169; 108, 140,89, 192 
1327 168,,252,;202,,208;238, 96 
FIN = COMP + 25: FOR I = GER TO FIN: 
READ J: POKE I,J: NEXT I 
IF IC THEN POKE COMP + 7,170: POKE 
COMP + 17,170 


10299 > 


10300 
10301 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 


10399 
10400 
10401 
10410 


REM Menu 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Insertion d'une fiche 
Recherche d'une fiche 
Modification d'une fiche 
Suppression d'une fiche 
Liste alphabétique 
Composition automatique 
DATA Nouveau carnet 
DATA Quitter le programme 
NC = 7: DIM CHOIXS (NC) : FOR I = 0 TO 
NC: READ CHOIX$S(I): NEXT I 


REM Lecture du fichier index 
REM 
PRINT DS"UNLOCK INDEX" 
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Pom's n° 27 





10420 PRINT DS$"UNLOCK ADRESSES" 10740 ON PT + 1 GOSUB 1000, 2000, 3000, 4000 
10430 PRINT D$"OPEN INDEX, L20": PRINT DS" , 5000 ,6000, 7000 
READ INDEX, RO": INPUT NF 10750 GOTO 10500 
10440 IF NF = O0 GOTO 10490 11000 HOME : PRINT CHRS (21): END 
10450 K = 0: FOR I = 1 TO NF 199991 & 
10460 K = K + l: PRINT D$"READ INDEX,R'"K: 20000 REM Traitement des erreurs 
INPUT X(K,0),X(K,1) 20001 REM ==============-2==--=— 
10470 IF X(K,0) = O AND X(K,1) = O0 GOTO 1 20100 ER = PEEK (222):LI = PEEK (218) + 
0460 PEEK (219) * 256 
10480 NEXT I 20200 : 
10490 PRINT D$S"CLOSE":PF = 1 20210 CALL GER 
10499 : 20220 IF LI = 20230 GOTO 20240 
10500 REM Affichage du menu 20230 PRINT D$; "CLOSE" 
10501 REM ----------------- 20240 PRINT CHRS (7) 
10510 TEXT : HOME :HP = 26:VP = 11 - NC:0O 20250 IF ER = 255 THEN PRINT "BREAK EN L 
LD = PT + 1 IGNE ";LI: END 
10520 PRINT TB$;: PRINT IS$;BBS$: VTAB 2: H 20300 REM Erreurs initiales 
TAB 20: PRINT "CARNET D'ADRESSES  (C 20301 REM -------=--------- 
) BORIS FIVOLEWSKI 1986";NS 20310 IF (ER = 6 OR ER = 7) AND LI = 1041 
10530 VTAB VP + l: FOR I = 0 TO NC - l: H O0 GOTO 10420 
TAB HP = 2% PRINT I 4 1". "CHOIXS 20320 IF (ER = 6 OR ER = 7) AND LI = 1042 
I): PRINT : NEXT I O0 GOTO 7100 
10540 HTAB HP - 2: PRINT "O0. ";CHOIXS (NC) 20330 IF ER = 5 AND LI = 10430 GOTO 7100 
10550 VTAB 23: PRINT TMS; 20340 IF (ER = 6 OR ER = 7) AND (LI > 700 
10560 IF IC GOTO 10590 O AND LI < 8000) GOTO 7100 
10570 PRINT "Tapez un nombre ou utilisez 20350 IF ER = 4 AND LI = 10410 GOTO 10430 
les fléches pour choisir une option. 20390 IF LI > 10000 AND LI < 10500 THEN 


Puis RETURN. "; 


PRINT "Erreur pendant l'initialisati 


10580 GOTO 10600 on. Recharger le programme.": END 
10590 PRINT "Tapez un nombre ou pressez 20400 REM Autres erreurs 

AIG OENTOSS Où ICS KPeNT SE "D 20401 REM -------------- 

our séléctionner une option.Puis pre 20410 IFER = 6 OR ER = 7 OR ER = 8 THEN 

sser ";IC$; "“M":NIS:; PRINT "Carnet d'adresses non trouvé 
10600 REM *** Entrée du choix *** .": PRINT "Mettez la bonne disquette 
10610 IF PT = OLD THEN GOTO 10630 ou créez un nouveau carnet (option 
10620 VTAB OLD * 2 + VP: HTAB HP: PRINT Je 

SPC( 26): PRINT : HTAB HP:.PRINT "“ " 20420 IF ER = 9 THEN PRINT "Disque plein 

; CHOIXS (OLD) ; " ": HTAB HP: VTAB PT * .": PRINT "Créez un nouveau carnet s 


2 + VP: PRINT LEFTS (TB$, LEN (CHO 
IX$S(PT)) + 2): HTAB HP: PRINT I$s" ” 
; CHOIXS (PT); " ";NIS 


20430 


ur une autre disquette": GOTO 20500 
IF ER = 17 THEN PRINT "Répertoire 
plein.": PRINT "Utilisez une autre d 


10630 WAIT - 16384,128: POKE - 16368,0: isquette": GOTO 20500 
K = PEEK ( - 16384) 20440 IF ER = 10 THEN PRINT "Fichiers ve 
10640 OLD = PT rrouillés." 
10650 IF K = 10 THEN PT = PT + 1 - (NC + 20450 IF ER = 4 THEN PRINT "Disquette pr 
1) * (PT = NC) otégée. " 
10660 IF K = 11 THEN PT = PT - 1 + (NC + 20460 IF ER = 4 OR ER = 10 THEN PRINT " 


1) * (PT = 0) 





Vous ne pouvez pas modifier les fich 


10670 IF 47 < K AND K < 49 + NC THEN PT = es": GOTO 20500 

K —- 49: IF PT < O0 THEN PT = NC 20470 IF ER = 5 THEN PRINT " Fichiers dé 
10690 IF K < > 13 THEN GOTO 10600 tériorés ou disquettes échangées": G 
10700 REM Exécution de la commande OTO 20500 
10701 REM - ——- Soc 20480 PRINT “erreur. "; 
10710 IF PT = NC GOTO 11000 20500 PRINT "“Pressez une touche pour reve 
10720 IF NF = O0 AND PT < > O0 THEN VTAB nir au menu";: CALL G80 

22: PRINT IS$;" Commande impossible: 20600 GOTO 10500 

fichier vide. ";N$;:OLD = PT:PT = 0: 

GET K$: PRINT CHRS$ (26): GOTO 1060 

Lé DJ LI 

0 Récapitulation 
10730 HOME : PRINT IS;BBS$S: VTAB 1: HTAB 2 

: PRINT CHOIXS(PT);: POKE 36,51: PRI _—  . Poe 

NT "ESC : Retour au menu général";NS$ Les quatre fichiers binaires utilisés se trouvent 


: POKE 34,3: PRINT : PRINT 


sous forme de DATAs dans le programme Basic. 


tien mnt le DR D e 
Porm's n°27 17 
 ————" 


NB : Sources en format ‘TEXT’ sur ls disquette Pom’s pour récupération sur votre assembleur. 


Source ‘IN’ 31 DEY 22 BNE old 
32 TXA 28 LDA  OURCH 
Assembleur Procode 35 STA (VARPNT),Ÿ 24 old LSR 
: 34 LDX #$00 25 TAY 
ou BigMac 35 INY 26 STA TXTPAGEI 
36 PLA 21 BCS page 
à 37 JSR MOVSTR 28 STA  TXTPAGE2 
2 ORG 50300 38 RTS 29 page EQU * 
3 —_—_—————…—…——.__— 
4 VARPNT EQU $83 Er LDA (BASL),Y 
5 IN EQU $0200 Source ‘T.G60’ 32 TAX 
6 INLIN EQU $D52C 33 boucle TXA 
7 CHKCLS  EQU SDEB8 Assembleur Procode ou 34 CMP  (BASL),Y 
8 CHKOPN  EQU $DEBB BigVec 35 BNE curseur 
9 PTRGET  EQU SDFE3 36 LDA #"" 
10 GETSPA EQU $E452 1% GET 37 curseur STA (BASL),Y* 
11 MOVSTR EQU $E5E2 2 38 
12 3 ORG 5380 39 LDA #0 
13 *** Début du code *** 4 40 CEC 
14 5 CH =  $24 41 waitO  PHA 
15 JSR CHKOPN 6 CV =  $25 42 waitl BIT KBD 
16 JSR PTRGET 7 BASL =  $28 43 BMI touche 
19 JSR CHKCLS 8 OLDCH =  $47B 44 SBC #1 
18 JSR INLIN 9 OURCH = 557B 45 BNE waitl 
19 LDX #$FF 10 46 PLA 
20 BCL INX 11 KBD =  $C000 47 SBC #1 
22 LDA IN,X 12 KBDSTRB = $CO010 48 BNE wait0 
22 BNE BCL 13 TXTPAGEL =  $C054 49 BEQ boucle 
23 TXA 14 TXTPAGEZ =  $CO055 50 
24 LDY #$00 15 51 touche PLA 
25 STA (VARENT),Y 16 BASCALC = SFBC1 52 TXA 
26 JSR GETSPA 17 53 STA (BASL),Y 
27 PHA 18 LDA CV 54 STA KBDSTRB 
28 TYA 19 JSR BASCALC 55 STA  TXTPAGEL 
29 LDY #$02 20 LDA CH 56 RTS 
30 STA (VARPNT) , Y 21 CMP  OLDCH 57 DS $3D0-* 


Éjectez les disquettes 3°5 


Brumo IFénmart 


Lé Li Pa LA 
Bien qu'un bouton permette de le Démonstration Source Ejection 
fair n ment, il peut-être 
4 | a uelle ? pe j JO DATA’ 32,0,0,,:4,10,;3;144$49,3% ORG  $300 
intéressant d'éjecter une disquette de En à Res 
de l'Unidisk 3.5 par programme 20 FOR I = 768 TO 784: READ J: ENTRY EQOU 0 
à la manière d'un Macintosh. > POKE I,J: NEXT Del eh À 
petite routine ci-Contre permet dE 30 zNPUT "SLOT: ";S: INPUT "DRI 20 00 00 Te 
faire l'opération. VE: "5D:S 2 (5+192) * 256 da Mu à 
La commande d'éjection n'étant “? 1 PEBX (S + 7) TSEN PRIE pm DA  PARLIST 
pas gérée par ProDOS, il faut tolé cn SE ERROR 
1 | 60 RTS 
faire appel directement à lacarte à Luxe 769, PEEK (S +255) +3 0 M 
interface. Le programme de TOR Te. P0ES 10 
démonstration donne les quelques 5 ps De. DES 
li à À 1 d ‘ OF 03 DW CTRLST 
Ipnes inclure dans votre 60 CALL 768:ER = PEEK (785) L# D 
programme Basic. 70 IP ER = 40 THEN PRINT "DRIV 69 00 den 1 0 
C E NON CONNECTE": END 
80 IF ER THEN PRINT "ERREUR" RER ET 
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L'apprenü-FORTiElIEr 


Fej Nissuorssky 


L'“Apprenti-FORTHier” (APF) 
est un système FORTH (interpré- 
teur+compilateur) écrit en 
Applesoft sous DOS 3.3 et prévu 
pour fonctionner en 80 colonnes. 
H possède de plus l'intérèt de 
visualiser le contenu de la pile de 
DATA et l'état du dictionnaire, et 
permet donc de saisir le fonction- 
nement du langage Forth 


Le langage Forth 


[1 fut inventé à la fin des années 
60 et implémenté sur IBM 1130 
par Charles H. Moore. Ses 
premières applications furent 
consacrées à l'astronomie. Forth 
est également un outil privilégié 
dans le développement de la 
ludotique. 


Forth possède un yrand nombre 
d'avantages : 


-* facile à utiliser grâce à une syn- 
taxe simple et peu contrai- 
gnante ; l'utilisation crée son 
propre vocabulaire de dialogue 
avec la machine ; 

. efficace car semi-compilé ,; il 
est interprété et permet donc 
une programmation agréable ; 
les définitions du vocabulaire 
sont compilées d'où une 
exécution très rapide (sauf 
pour APF car interpréteur et 
compilateur sont écrits et 
compilés en Applesoft, ce qui 
est le pendant de son caractère 
didactique) ; 

* puissant car c'est un langage 
de haut niveau qui permet ce- 
pendant également de manipu- 
ler les données au niveau des 
octets en mémoire. 


Forth ne fonctionne pas avec des 
instructions (comme le Basic, 
Pascal ou les assembleurs). Au 
contraire, l'utilisateur peut ensei- 
gner son langage à la machine en 


- 
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créant des mots, ce vocabulaire 
étant placé dans un dictionnaire. 
Il est très simple de définir un 
mot, qui ne sera reconnu que S'il 
ne fait appel qu'à des mots déjà 
COILIIUS . 

+: Exemple 1 2° + … ; 


Exemple affiche le résultat de 
1+2 (à noter que, en Forth, tous 
les mots doivent être séparés par 
un espace). Bien entendu, un mot 
peut être effacé avec l'instruction 
FORGET 


Les données manipulées en Forth 
peuvent être des variables ou 
tableaux des constantes, ou 
encore des constantes immé- 
diates. 


Forth est construit autour de deux 


piles : la pile de données ( la seule 
visualuée par APF) et la pile de 
retour, toutes deux bâties selon la 
structure LIFO (Last In First 
Out). 

Forth fonctionne avec la notation 
polonaise inversée, comme cer- 


‘ taines calculatrices : 


1 2 + 3 * donne 9. 


La pratique d'APF permet de 
visualiser la pile tout au cours des 
opérations. Conventionnellement, 
on représente entre parenthèses et 
séparés par -— les paramètres sur 
la pile avant et après exécution du 
mot : 


+ (a b --- a + b) 


L'approche interprétée est repré- 
sentée par le dialogue au clavier : 


Help ! 


Voici la marche à suivre pour utiliser ce programme 
d'approche du langage Forth. 


1 Vous êtes le bienheureux possesseur de la disquette 
d'accompagnement de la revue ? Passez à l'étape 7. 


À OR  L& ON 


Saisir et sauvegarder le fichier binaire DICO qui contient 
les ordres Forth de base, le noyau. 

Saisir CREDEMO, le sauvegarder, faire RUN 
CREDEMO pour créer le fichier TEXT DEMO APF. 
Saisir CREMESS, le sauvegarder, faire RUN CREMESS 
pour créer le fichier MESSAPF. 

Saisir et sauvegarder GARDE APF et APF 224. 

Vous devez disposez sur la même disquette des fichiers 


suivants (ce sont les seuls nécessaires) : 


A GARDE.APF 
A APF 22-4 


+ DICO 
T  DEMOAPF 
P MESSAPE 


7 Faites RUN GARDE.APF. 





124+3%* 

alors que l'approche compilée est 
représentée par la définition de 
nouveaux mots : 


CARRE DUE * ; 


Les programmes 
fournis 


CREMESS 


crée et modifie le fichier direct 
MESS APF. L'utilisateur n'a pas 
en principe à travailler avec, sauf 
s'il veut adapter le programme 
APF. 


CREDEMO 


crée et modifie le fichier DEMO 
APF qui contient des exemples de 
séquences. Outre l'aspect dé- 
monstratif, on peut s'en servir 
comme base de petits “program- 
mes” à charger. 


GARDE.APF 


affiche la page de garde et lance 
APF. 


Comment se 
servir d'APF 


Il y a deux modes : 

° normal 

° pas à pas (pause après chaque 
mot d'une même ligne. 


Vocabulaire d'APF 


DEMO charge un des exemples 
du fichier DEMO.APF ; 

INIT réinitialise le Forth (doit 
être en début de ligne) ; 

RAZ réinitialise les piles ; 

CLS efface l'écran ; 

BELL émet un ‘beep’ ; 

LISTE MOTS liste les diction- 
naires ; 

MODE commute les modes nor- 
mal et pas à pas ; 

QUITTE arrêt du programme ; 

AIDE affiche un écran d'aide ; 

CARRAY tableau d'octets (7 
CARRAY nom crée un tableau 
de n+1 octets auquel on peut 
accéder par C@ et C!). 








Quelques clefs pour l'utilisation du programme 


Se reporter à la bibliographie - 





Les nombres sont sur deux octets 
(-32768 à +32767), les mots sont 
limités à 16 caractères (154 mots 
maxi) et les phrases à 159 carac- 


tères. 


PILE PILE 
ORDRE AVANT APRES 
. nl n2 n3 
+ nl n2 n3 
+LO0P n 
- nl n2 n3 

n 
, “texte” 
A ni n2 ns 

MOT définition 
< nl n2 drapeau 
- nl n2 drapeau 
© nl n2 drapeau 
> nl n2 drapeau 
? adr 
1 n adr 
€ adr n 
AND nl n2 n3 
Ci octet adr 
æ adr octet 
CR 
DROP 
DÜP n nn 
ELSE 
EMIT n 
FORGET 
T n 
IF drapeau 
ÉEY, n 
NOT drapeaul drapeau? 
@ nl n2 n3 
OVER nl n2 nl n2 n1 
ROT nl n2 n3 n2 n3 nl 
SWAP nl n2 n2 nl 
THEN 


Les autres mots sont 


classiques du Forth 79 (voir ta- 


bleau ci-joint) 


COMMENTAIRE 


Multiplication de nl par n2 

Laisse n3 sur la pile 

Somme de n1 et de n2 

Laisse n3 sur la pile 

Incrémente l'indice de boucle de n, 
L'exécution reprend au DO correspondant 
tant que l'indice est inférieur à la limite 
Soustrait n2 de n1 

Laisse n3 sur la pile 

Affiche le nombre n suivi d'un espace 
Affiche du texte jusqu'à ” 

vivise nl par n2 (division entière) 

Laisse n3 sur la pile 

MOT est créé dans le dictionnaire, 
l'interpréteur compile la définition, 
chaque ordre de la définition doit exister 
dans le vocabulaire connu 

Indique la fin d'une définition 

Exemple de définition : 

: CARRE DUP *# ; 

Compare nl à n2. Sur la pile drapeau sera 
à 1 si nl<n2 et 0 sinon 
Compare nl à n2. Sur la pile 
à 1 si nl=n2 et 0 sinon 
Compare nl à n2. Sur la pile drapeau sera 
à -1 si n1<>n2 et 0 sinon 

Compare nl à n2. Sur la pile drapeau sera 
à 1 si nl>n2 et 0 sinon 

Affiche contenu de la mémoire ADR 
Mémorise n à l'adresse adr (n sur 2 octets) 
Empile le contenu de l'adresse adr 

{n sur 2 octets} 

ET logique 

Mémorise l'octet à l'adresse adr 

Empile le contenu de adr 

Affiche un retour chariot 

Supprime le sommet d la pile 

Duplique le sommet de la pile 


drapeau sera 


De là forme 

<Cond> IF <si vrail> ELSE <si faux> THEN 
Affiche le caractère dont le 

code ASCII est n 

Supprime un nom du dictionnaire et ceux 
définis depuis. ex : FORGET CARRE 

Dans les boucle. Empile l'indice 

ex : DO..I..LOGP' 

Si drapeau est vrai les mots qui suivent sont 
exécutés, sinon ceux qui suivent ELSE le sont 
Empile code ASCII de la touche frappée 
Inverse le drapeau 

OU logique 

Empile copie de l'avant dernier nombre 
Rotation de la pile (3 cellules) 

Échange des deux cellules en haut de la pile 
Symbolise la fin d'une condition 


Bibliographie 

FIG Forth, distribué par le Forth 
Interest Group 

Forth 79 

TransForth, avec des aombres réels, de 
Paul Lutus 

GraForth, avec de puissantes possibi- 
lités graphiques, de Paul Lutus 


des 
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Liste des mots du Fichier DICO 1 86B0- A5 4B 45 59 20 00 1A 86 
dictionnaire de DICO pa CREDICO 86B8- AB 43 4C 53 20 00 1B 86 
: _- 00 
ecole pus2me come (Créé par | Hi tewxess 
Après avoir saisi ce code “ 
+ KEY sous moniteur vous le 86D0- 1E 86 C7 44 4F 20 00 1F 
= CLS ” ÿ 86D8- 86 CD 2B 4C 4F 4F 50 20 
* : Sauvégardérez par 86E0- 00 20 86 D3 49 46 20 00 
’ L BSAVE DICO,A$8601,L$19A 86E8- 21 86 DA 54 48 45 4E 20 
< I 8601- 2B 20 00 01 00 00 2D 86F0- 00 22 86 E4 45 4C 53 45 
= DO 8608- 20 00 02 86 O1 2A 20 00 86F8- 20 00 23 86 EB 42 45 47 
> +L00P 8610- 03 86 07 2F 20 00 04 86 8700- 49 4E 20 00 24 86 F4 57 
<> IF 8618- OD 3C 20 00 05 86 13 3D 8708- 48 49 4C 45 20 00 25 86 
AND THEN 8620- 20 00 06 86 19 3E 20 00 8710- FD 52 45 50 45 41 54 20 
OR ELSE 8628- 07 86.1F 3C 3E 20 00 08 8728-— 00 26 87 07 43 4F 4E 53 
NOT BEGIN 8630- 86 25 41 4E 44 20 00 09 8720- 54 41 4E 54 20 00 27 87 
DUP WHILE ps ki 2B 4F . ne . “ _ 8728- 11 56 41 52 49 41 42 4C 
DROP REPEAT ET PER er 
SEE ES Fete 8650- 41 44 52 4F 50 20 00 O0D 8740- 29 46 4F 52 47 45 54 20 
ca VARIABLE 
c! AY 8658- 86 49 4F 56 45 52 20 00 8748- 00 2A 87 36 41 49 44 45 
ROT FORGET 8660- GE-86 51 43 40 20" 00 9F 8750- 20 00 2B 87 41 51.55 49 
swAP 8668- 86 5A 43 21 20 00 10 86 8758- 54 54 45 20 00 2C 87 4C 
se AIDE 8670- 63 52 4F 54 20 00 11 86 8760- 4D 4F 44 45 20 00 2D 87 
CR QUITTE 
8678— 6A" 532 57 41 50 2006 12 8768- 55 52 41 5A 20 O0 2E 87 
Fais MODE 9620= 86071 43 52 20 00-13 86 8770- 60 42 45 4C 4C 20 00 2F 
! RAZ 8688- 79 45 4D 49 54 20 00 14 8778- 87 69 4C 49 53 54 45 4D 
- BELL 8690- 86 82 21 20 00 15 86 89 8780- 4F 54 53 20 00 30 87 71 
. LISTEMOTS 8698- 2E 20 00 16 86 92 2E 22 8788- 49 4E 49 54 20 00 31 87 
? INIT 86A0- 20 00 17 86 98 3F 20 00 8790- 7A 44 45 4D 4F 20 00 32 
(a DEMO 86A8- 18 86 9E 40 20 00 19 86 8798- 87 88 44 
£, 3 m:NUS:NU = INT ( VAL (NUS)): IF NU < 1 OR NU > 99 
Programme ‘CREDEMO pe 
705 VTAB 6: POKE 36,0 
1 REM ###Rh that tant tnt thé tant tata tnat* 710 PRINT : PRINT DS"OPENDEMOAPF,LI6O":VTS = "" 
2 REM * Creation des phrases pour ia commande DEMO * 720 PRINT D$®READDEMOAPF, R°"NU 
3 REM * du programme APF * 730 GET XS: IF XS = CHRS (13) THEN 740 
4 REM* Fef Nissuorgsky (c) 1985 CHANCELADE 24650  * 735 VT$ = VTS + XS: GOTO 730 
5 REM * Le fichier s'appelle DEMOZPF * 740 PRINT DS$S"CLOSE": PRINT : PRINT VTS 
6 REM * Ce programme s'appelle CREDEMO * 750 PRINT : PRINT "Autre taper <RETURN> Arret taper <£&> 
9 REM ttttttttttnt#tnttntttnttt tt ta t 4h tt tt tt tt # AE AR À ". £& KEY: IF PEEK (768) < > 13 THEN RETURN 
99 REM 760 GorO 700 
100 REM Programme Principal 999 END 
101 REM 1000 Q = 45: REM IMPLANTATION DE LA ROUTINE &KEY 
110 GOSUB 1000: GOSUB 56000 1010 FOR I = 0 TO Q - 1: READ Z8$: POKE 769 + I,Z%: NEXT 
120 HOME : PRINT "Ce programme cree le fichier DEMOAPF qu 1020 POKE 1014,1: POKE 1015,3 
i contient les phrases de demonstration": PRINT "utili 1190 RETURN 
sables par le programme APF (l'APPRENTI FORTHier) sous 1200 DATA 44,0,192,16,251,173,0,192,44,16,192,41,127,141, 
la commande DEMO.": PRINT "Les phrases contiennent au 0,3,201,32,144,14,165,184,24,105,3 
maximum 159 caracteres." 1210 DATA 133,184,165,185,105,0,133,185,96,201,13,240,238 
121 PRINT "Le nombre de phrases est limite a 99." ,201,8,240,234, 76,1,3 
122 PRINT : PRINT "Taper <C> pour CREER une phrase où <V> 30997 REM 
pour VOIR une phrase": PRINT "<&> pour quitter." 30998 REM ENTREE d'une ligne de 159 caracteres 
130 GET XS:X = ASC (XS): IF X = ASC ("6") THEN END 30999 REM 
140 IF X = 67 OR X = 99 THEN GOSUB 500: GOTO 120 31000 VTAB 2: PRINT : VTAB 19: POKE 36,0: CALL CW: PRINT 
141 IF X = 86 OR X = 118 THEN GOSUB 700: GOTO 120 PMS: INVERSE : PRINT " ";: NORMAL :NC = O:E$ = "":X 
142 GOTO 130 = FRE (0):X = 2 
500 REM CREATION 31010 IF NC = 160 OR X = 13 THEN 31050 
510 HOME : PRINT "CREATION d'une PHRASE": PRINT : INPUT " 31015 VTAB 2: PRINT : VTAB 20 + INT (NC / 80): POKE 36,N 
Numero : ":NUS:NU = INT { VAL (NUS)): IF NU < I OR NU C — INT (NC / 80) + 80 
> 99 THEN 510 31020 & KEY:X = PEEK (768):X$ = CHRS {X): IF X < 123 AN 
520 GOSUB 31000:PS = " D X > 96 THEN X = X — 32:XS = CHRS (X) 
530 FOR I = 1 TO LEN (ES) 31030 IF X = 8 THEN GOSUB 31950 
540 IF MIDS (ES,I,1) > CHRS (96) AND MIDS (ES,I,1) < 31040 IF X < > 8 THEN GOSUB 31900 
CHRS (123) THEN PS = PS + CHRS ( ASC ( MIDS (ES,I,1)) 31041 GOTO 31010 
- 32): GOTO 550 31050 IF X < > 13 THEN 31000 
545 PS = PS + MIDS (ES,I,1) 31060 NC = NC - 1:ES = MIDS (ES,1,NC): IF RIGHTS (ES,1) 
550 NEXT :ES = P$ = " " THEN 31060 
560 PRINT DS"OPENDEMOAPF, L160" 31061 RETURN 
570 FOR I = 1 TO LEN (ES): PRINT DS"WRITEDEMOAPF, R";NU;" 31897 REM 
,B°I - l: PRINT MIDS (ES,I,1): NEXT 31899 REM on n'a pas tape CTRL-H 
580 PRINT DS"CLOSE": RETURN 31899 REM 
699 REM VOIR 31900 IF NOT (NC = O0 AND (X = 32 OR X = 13)) THEN 31910 
700 HOME : PRINT "VOIR une PHRASE": PRINT : INPUT "Numero 31906 PRINT BIPS;: IF X = 13 THEN X = 0 
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31907 
31910 
31911 


31930 
31947 
31948 
31949 
31950 
31956 
31960 
31967 
31968 
31969 
31970 


56000 
56010 


56020 
56099 
57000 
57010 


57020 
57030 


57040 
58000 
58001 


58010 


58015 
58016 


58020 
58030 
58040 
58045 
58050 


58060 
58065 
5807U 
58080 


RETURN 

IF X < 32 AND X < > 13 THEN PRINT BIPS$;: RETURN 
NC = NC + U:E$ = E$ + X$: IF X < > 13 THEN PRINT X 
$;: INVERSE : PRINT " ";: NORMAL 

RETURN 

REM 

REM on a tepe CTRL-H 

REM 

IF NC = O THEN PRINT BIPS$S;: RETURN 

GOSUB 31970 

RETURN 

REM 

REM Recul 

REM 

VTAB 2: PRINT : VTAB 20 + INT (NC / 80): POKE 36,N 
C - 80 * INT (NC / 80): PRINT " "; CHR$ (8); CHRS ( 
8);: INVERSE : PRINT " ";: NORMAL :NC = NC - l:ES = 


MID$S (E$,1,NC): RETURN 


REM  INITIALISATION 

D$ = CHRS (13) + CHRS (4):PM$ = "Votre phrase :":B 
IP$ = CHR$S (7):CW = - 958 

Z = O:U= 1 

RETURN 

REM CREATION du fichier DEMOAPF la lere fois 

D$ = CHRS (13) + CHRS {4): PRINT D$""OPENDEMOAPF": 


PRINT DS"DELETEDEMOAPF": PRINT DS"OPENDEMOAPF, L160" 
F$ = "": FOR i = i TO 159:F$ = F$ + "$"; NEXT 

FOR I = O TO 99: PRINT D$S"WRITEDEMOAPF,R"I: PRINT F 
$: NEXT 

PRINT D$ "CLOSE": END 

REM LISTE IMPRIMEE DES PHRASES DE DEMO 

REM LA FIN DU FICHIER EST INDIQUEE PAR LÀ PHRASE : 

FIN 

TEXT : HOME : PRINT "LISTE IMPRIMEE DES PHRASES DE 
DEMO": PRINT : PRINT "Preparer l'IMPRIMANTE puis tap 
er une TOUCHE ";: GET XS: PRINT XS 


DS = CHR$S (13} + CHRS (4):NU = 1 

PRINT DS$S"PR#!": PRINT "Phrases de la commande DEMO" 
: PRINT : PRINT DS"PR#3" 

PRINT : PRINT DS"OPENDEMOAPF, L16O0":VTS = "" 

PRINT DS"READDEMOAPF, R°NU 

GET XS$: IF X$ = CHRS (13) THEN 58050 

VTS = VTS + XS: GOTO 58040 

PRINT DS"CLOSE": IF VTS = "FIN" THEN PRINT DS"PR#3 
": END 

PRINT DS"PR#l" 

PRINT : PRINT "Phrase "NU" ;"; PRINT VTS 

PRINT DS"PREZ" 

NU = NU + 1: GOTO 58020 


Programme ‘APF 22-4° 


1 REM nn tithhtthititiiinsiiitiititeitr 

2 REM L'APPRENTI FORTHier Version 3.0 * 

3 REM * . 

4 REM* Fej Nissuorgsky (c) 1985 CHANCELADE 24650 , 

$ REM Rhhhhhthhhhthhthhthtttttttthhhttttttttttttthtttht tt 

99 REM 

100 REM Programme Principal 

101 REM 

102 GOSUB 56000: REM Initialisation 

104 GOSUB 57200: GGSUB 1350: REM Etablit l'ecran 

110 GOSUB 11000: GCSUB 51000: REM Met le DICO 

120 SU = VR 

130 IF NOT SU THEN 180 

135 X = FRE (0) 

140 GOSUB 31000: IF MID$S (ES$,1,4} = "DEMO" THEN GOSUB 1 
6000: GOTO 150 

141 IF MIDS$ (ES$,1,4) = "INIT" THEN GOSUB 350: GOTO 130 

150 IF MIDS (ES$,1,2) = ": " THEN GOSUB 20000: GOTO 160 

151 GOSUB 2000 

160 IFER < > O THEN GOSUB 10000 

170 GOTO 130 

180 IF MID$ (ES$,1,4) = "INIT" THEN RUN 

199 END 

297 REM 

298 REM ENTREE d'une Touche au CLAVIER 

299 REM 

300 INVERSE : PRINT " ";: NORMAL : & KEY:X = PSEK (768): 
XS = CHRS (X)}: PRINT CHRS (8); CHRS (32); CHRS (8});: 
RETURN 

350 VTAB 2: PRINT : VTAB 23: PRINT "Confirmer par 'C' ";: 
GOSUB 300: IF XS = "C" OR XS = "c" THEN SU = FX: RETU 


RN 


355 

1297 
1298 
1299 
1300 


1347 
1348 
1349 
1350 


13597. 
1358 
1359 
1360 


1997 
1998 
1999 
2002 

2011 

2015 
2020 
2030 
2031 

2032 
2033 
2034 
2035 
2036 
2037 
2039 
2040 


2045 


2050 
2060 


2065 
2070 
2197 
2198 
2199 
2200 
2210 


2215 
2220 


2240 
2297 
2298 
2299 
2300 
2310 
2397 
2398 
2399 
2400 
2410 


2497 
2498 
2499 
2500 
2510 
2520 
2597 
2598 
2599 
2600 
2605 


2610 


2620 
2697 
2698 
2699 
2700 


VTAB 2: PRINT : VTAB 23: CALL CW: RETURN 

REM 

REM Suite Taper Return 

REM 

PRINT "Pour continuer Taper une Touche ";: GOSUB 300 
:T9 = PEEK (37): VTAB 2: PRINT : VTAB T9 + l: POKE 
36,0: CALL CL: RETURN 

REM 

REM Mode NORMAL 

REM 

VTAB 2: PRINT : VTAB 4: POKE 36,62: PRINT "NORMAL 
":ME = FX: RETURN 

REM 

REM Mode PAS À PAS 

REM 


VTAB 2: PRINT : 
":MF = VR: RETURN 


VTAB 4: POKE 36,62: PRINT "PAS À PAS 


REM 

REM EXECUTION 

REM 
PR =U 

GOSUB 15900: (30SUR 15920:CO = 4: GOSUB 15000 
IF NOT (PR < LEN (E$) AND ER = O0} THEN 2060 
GOSUB 32000: GOSUB 22090 

IF ER < > Z THEN RETURN 


GOSUB 32200: IF NU < > Z THEN 2034 
GOSUB 32100: IF NU = 99 THEN GOSUB 3000: GOTO 2039 


ER = 18: RETURN 

IF NU > 29 AND NU < 39 THEN ER = 6: RETURN 

IF NU = 28 THEN ER = 28: RETURN 

IF NU = 29 THEN ER = 27: RETURN 

GOSUB 2200 

IF ER < > Z THEN RETURN 

IF MF THEN GOSUB 15920:CO = 42: GOSUB 15000: VTAB 2 
: PRINT : VTAB 24: GOSUB 1300 

IF MF THEN GOSUB 15900: GOSUB 15920:CO = 4: GOSUB 1 
5000 

GOTO 2015 


Z THEN GOSUB 15920:CO = 42: GOS 
VTAB 24: POKE 36,5: GOSUB 


IF NOT MF AND ER = 
UB 15000: VTAB 2: PRINT : 
1300 

GOSUB 15900: GOSUB 15920:CO 
RETURN 

REM 
REM 
REM 
IF NU > 99 THEN 2300 

ON NU GOSUB 35100,3200,3300,3400,3500,3600,3700,3800, 
3900, 4000, 4100, 4200, 4300, 4400, 4500, 4600, 4700, 4800, 49 
00,5000,5100, 5200,5300, 5400, 5500,5600, 5700, 5800,5900 
, 6000 

IF NU < 31 THEN RETURN 

ON NU - 30 GOSUB 6100, 6200, 6300, 6400,6500, 6600, 6700, 
6800, 6900, 7000, 7100, 7200, 7300, 7400, 7500, 7600, 7700, 78 
00, 7900, 8000 


GOSUB 15000 


4: 


Exécution d'un mot 


RETURN 

REM 

REM Exécution d'un mot créé 

REM 

ON PEEK (AD + LM + 3} GOTO 2400,2400,2600,2700 
ER = 18: RETURN 

REM 

REMW le mot trouvé est une CONSTANTE 


REM 
GOSUB 15200: IF ER < > Z THEN RETURN 


POKE FN VP(PM$%), PEEK (AD + LM + 4): POKE FN VP (PM 


$) + 1, PEEK (AD + LM + 5): RETURN 

REM 

REM le mot trouvé est une VARIABLE 

REM 

GOSUB 15200: IF ER < > Z THEN RETURN 

T9 = FN VP(PM$%): POKE T9, FN RQO(AD + LM + 4) 
POKE T9 + 1, INT ((AD + LM + 4) / 256): RETURN 
REM 

REM le mot trouvé est ur TABLEAU (CARRAY) 
REM 

PD = 1: GOSUB 15210: IF ER = Z THEN RETURN 


TP$ = PM$&PMS) : IF TP$ < Z OR TP# > PEEK (AD + LM + 


4) —- 1 THEN ER = 33: RETURN 

T9 = FN VP(PM$): POKE T9, PEEK (AD + LM + 5 + TP$): 
POKE T9 + U,Z 

RETURN 

REM 

REM Exécution d'un MOT CREE 

REM 

PR$ = l:PR(PR$) = AD + LM + 3 
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Pom's n° 27 


2730 
2735 
2740 


2750 
2751 
2752 
2753 
2760 


2770 
2800 
2820 
2821 
2822 


2825 
2830 
2835 
2840 
2845 
2850 
2855 
2900 


2905 


2906 


2910 
2950 
2955 


2965 
2970 
2997 
2998 
2999 
3000 
3005 
3099 
3100 
3105 


3110 
3199 
3200 
3205 


3210 
3299 
3300 
3305 


3310 
3399 
3400 
3402 
3405 


3410 
3499 
3500 
3510 
3520 
3599 
3600 
3610 
3620 
3699 
3700 
3710 
3720 
3799 
3800 
3810 


3815 
3820 
3899 
3900 
3910 


3920 
3999 
4000 





IF PR$8 = Z ORER < > Z THEN RETURN 
PT = PR(PR$):PR$ = PR& -— 1 

IF PEEK (PT) = 1 OR PEEK (PT) = 2 OR PEEK (PT) = 
3 THEN ON PT GOSUB 2400,2500,2600: GOTO 2730 

IF PEEK (PT) < > 4 THEN 2760 

IF PEEK (PT + 1) = 255 THEN 2730 
GOSUB 15220: IF ER < > Z THEN 2730 
PR(PR$) = PT + 1: GOTO 2730 

IF PEEK (PT) = 128 THEN N = NU:NU = 
GOSUB 2820:NU = N: GOTO 2730 

IF PEEK (PT) = 129 THEN GOSUB 2950 
GOTO 2730 

IF NU > 99 OR NU = 23 THEN 2825 

GOSUB 2210: IF ER < > Z THEN RETURN 
PT = PT + 2: GOSUB 15220: IF ER = Z THEN PR(PR$&) = 
: RETURN 


PEEK (PT + l): 


PT 


IF ER < > Z THEN RETURN 

IF NU = 23 THEN 2900 

GOSUB 15220: IF ER < > Z THEN RETURN 
PR(PR$) = PT +2 

GOSUB 9000: REM cherche l'adresse du mot cree NU 
GOSUB 15220: IF ER < > Z THEN RETURN 
PR(PR$) = AD: RETURN 

TP = PEEK (PT + 2): GOSUB 15200: IF ER < > Z THEN 
RETURN 

IF TP < > Z THEN FOR I = U TO TP:PM#(PM$) = PEEK 
(PT + 2 + I): GOSUB 5000:PM% = PM$ + U: NEXT 
PM$ = PM$% -— U: GOSUB 15220: IF ER < > Z THEN RETURN 
PR(PR$#) = PT + 3 + TP: RETURN 

GOSUB 15200: IF ER < > Z THEN RETURN 

T9 = FN VP(PM$#): POKE T9, PEEK (PT + U): POKE T9 + U 
# PEEK (PT + #2) 

GOSUB 15220: IF ER < > Z THEN RETURN 
PR(PR%) = PT + 3: RETURN 

REM 

REM **#*% 99 (immediat) #*#*#* 

REM 

GOSUB 15200: IF ER = Z THEN PM$#(PM$) = VN 

RETURN 

REM LELL: + ... 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 
TP = PMS(PM$%) + PM#(PM$ - U}: GOSUB 15400: IF ER < > 

Z THEN RETURN 
PM$(PM$ -— U) = TP:PM$ = PM$ - U: RETURN 

REM LLLE] - LEE) 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 
TP = PM#(PM% - U) - PMS#(PM8): GOSUB 15400: IF ER < > 

Z THEN RETURN 
PM$(PM$ -— U) = TP:PM$ = PM$ - U: RETURN 


REM #**##* * #A+A 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

TP = PMS(PM$ - U) * PMS(PM$#): GOSUB 15400: IF ER < > 
Z THEN RETURN 

PM${(PM$ — U) = TP:PM$ = PM$ -— U: RETURN 


REM *#2# 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM$#(PM$%) = Z THEN ER = 2: RETURN 

TP = INT (PM$(PM% - U) / PM#PM%)}: GOSUB 15400: IF 
ER < > Z THEN RETURN 

PMS(PM$ - U) = TP:PM$ = PM$ - U: RETURN 


#A#4  / 


REM LELZ] < LELZ) 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM$S(PM$% - U) < PMS8(PM#) THEN TP = - l: GOTO 3820 
TP = 2: GOTO 3820 

REM HAE =  H#4A 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM$#(PM$% -— U) = PM$#(PM%) THEN TP = - l: GOTO 3820 
TP = Z: GOTO 3820 

REM LELES >» LES E] 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM#(PM$ - U) > PMS(PM$) THEN TP = - 1: GOTO 3820 
TP = Z: GOTO 3820 

REM ss... <> LELZ) 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PMS(PM$% - U) < > PM$(PM$) THEN TP = - l: GOTO 3 
820 

TB =2Z 
PM$ = PM$ - U:PM$#(PM$%) = TP: RETURN 

REM #*### AND **#4 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM$(PM$ -— U) = Z OR PM$(PM$) = 2 THEN TP = Z: GOT 
© 3820 

TP = - l: GOTO 3820 

REM LELES OR #RAX 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 


Pom's n° 27 


4010 


4020 
4099 
4100 

4110 

4120 

4199 
4200 
4210 
4220 

4299 
4300 
4310 
4399 
4400 
4410 
4420 
4499 
4500 
4510 
4599 
4600 
4610 


4615 
4699 
4700 
4710 


4799 
4800 
4810 


4899 
4900 
4910 


4920 
4999 
5000 
5010 


5015 
5020 


5030 
5099 
5100 
5110 


5199 
5200 
5210 


5220 


5299 
5300 
5305 
5310 


SS1S 


5320 
5330 


5340 
5399 
5400 
5410 
5499 
5500 
5510 
5520 
5530 
5599 
5600 
5605 


5699 
5700 
5799 
5800 


IF PMS(PM# - U) < > Z OR PM#(PM#) < > Z THEN TP = 
- 1: GOTO 3820 

TP = 2: GOTO 3820 
REM ##2# NOT ##*#* 

PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 


IF PM$#(PM$%) = Z THEN PM#(PM$%) = - U: RETURN 
PMS(PM$) = Z: RETURN 

REM LLLZ: DUP LLLLZ. 

PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
GOSUB 15200: IF ER < > Z THEN RETURN 

PMS$ (PM$) = PMS(PM$ -— U): RETURN 

REM LEZ] DROP LLLZ) 

PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
PM$ = PM$ - U: RETURN 

REM LEZ Z: OVER L£Ls: 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 
GOSUB 15200: IF ER < > Z THEN RETURN 
PM#(PM$%) = PM$(PM$ - 2): RETURN 

REM #t#t Cà *##* 

PD = U: GOSUB 15210: IFER < > Z THEN RETURN 


PM$(PM$) = PEEK (PMS$ (PM$}): RETURN 

REM LAURE CI ##t* 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PMS#(PM$ - U) < Z OR PM#(PM$ - U) > 255 THEN ER = 
30: RETURN 

POKE PMS$(PM%),PM$(PM$ - U):PM$ = PM$ - 2: RETURN 
REM ##*##  ROT +*#* 
PD = 3: GOSUB 15210: IF ER < > Z THEN RETURN 

TP = PM#{(PM$ - 2):PM#(PM# - 2) = PM8#(PM$ - U):PMS#(PM$ 
— U) = PM$#(PMS$) :PMS(PM$) = TP: RETURN 

REM #+#4#+#4 SWAP LLLZ: 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

TP = PMS$(PM$ - U) :PMS$(PM$ -— U) = PM#(PM#):PM$(PM$) = 
TP: RETURN 

REM thx CR #*#*#* 
EL = EL + U:EC = U: IF EL < > 6 THEN RETURN 

FOR I = U TO 4:ECS(I) = ECS(I + U): NEXT :EC$(5) =" 
"SEL = 5 

GOSUB 50055: RETURN 

REM ##*#*  EMIT LELL: 
PD = 1: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM#(PM$#) > 255 OR (PM$(PM$) < 32 AND PM$(PM#) < 
> 13) THEN ER = 30: RETURN 

IF PM$&(PM$%) = 13 THEN GOSUB 4900: RETURN 

EC$ (EL) = EC$(EL) + CHR$ (PM#(PM$)}: VTAB 2: PRINT : 
VTAB 4 + EL: POKE 36,17 + EC: PRINT CHR$ (PM8(PM3) 
);:EC = EC + 1: IF EC = 17 THEN GOSUB 4900 
PM$ = PM$ - U: RETURN 

REM *ht# ! STORE +ttt 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

POKE PM$(PM%), PEEK ( FN VP(PM$ -— U) + U): POKE PM$( 
PM$) + U, PEEK ( FN VP(PM$ - U)):PM$ = PM$ - 2: RETU 
RN 

REM *#2 tx 
PD = GW: GOSUB 15210: IF ER < >Z THEN RETURN 

VT$ = STR$ (PM#(PM$)): GOSUB 49O00:EC$(EL) = VT$:EC = 
EC + LEN (VTS$) 

VTAB 2: PRINT : VTAB 4 + EL: POKE 36,18: PRINT EC$(E 
L);:PM$ = PM$ -— U: RETURN 

REM thx ." #+tt À 

IF MID$ (E$,PR,U) = " * THEN PR = PR + U: GOTO 5300 
IF PM$ > = 11 THEN ER = 21: RETURN 

IF MID$ (E$,PR,U) = CHR$ (34) OR PR > = NC THEN 5 
330 

PM$ = PM$ + U:PM$(PM$) = ASC ( MID$ (E$,PR,U)}: GOSU 
B 5000: IF ER < > Z THEN RETURN 
PR =.PR + Us GOTO 5310 

IF MID$ (E$,PR,U) < > CHR$ (34) THEN ER = 31: RET 
URN 
PR = PR + U: RETURN 

REM #thts 7 ssà 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 

GOSUB 5510: GCOTO 5210 

REM “ee © AROBAS FETCH, Me#a 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 

T9 = PEBK (PM#(PM$)) + PBEK (PMS{(PMY$) + 1} * 256 
IF T9 > NX THEN T9 = T9 - 65536 
PM#(PM$#) = T9: RETURN 

REM tttt KEY #*#*2 

GOSUB 15200: IF ER < > Z THEN RETURN 

VTAB 2: PRINT : VIAB 4 + EL: POKE 36,EC + 17: GOSUB 
300: VTAB 2: PRINT :PM$#(PM$#) = ASC (X$): RETURN 

REM Sat (CIS: ##E# 

GOSUB 50005: RETURN 

REM *RR# CEE] 
ER = 23: RETURN 


5899 
5900 
5999 
6000 
6020 
6030 
6099 
6100 
6110 


6199 
6200 
6210 
6215 
6220 
6230 
6299 
6300 
6310 
6320 
6330 
6340 
6399 
6400 
6499 
6500 
6593 
6600 
6699 
6700 
6710 
6720 
6799 
6800 
6899 
6900 
6910 
6999 
7000 


7005 
7006 
7010 
7012 
7015 
7020 


7025 


7030 


7035 


7040 


7050 
7060 
7099 
7100 
7105 


7110 
7175 
7116 
7120 


7125 


7130 


7140 
7145 


7150 


7199 
7200 
7205 
7210 


7215 
7216 
7220 


REM ht" : LE: 
ER = 27: RETURN 

REM LEE] T° ... 

IF PO = Z THEN ER = 24: RETURN 

GOSUB 15200: IF ER < > Z THEN RETURN 
PM$#(PM$%) = ID: RETURN 

REM ###% DO ###* 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

ID = PM$#(PM$):II = PM&(PM$ - U):PM$ = PM$ - 2:PO = PT 
: RETURN 

REM #*t*  HLOOP #*#* 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PO = Z THEN ER = 11: RETURN 
ID = ID + PM$#(PM$,:PM$ = PM$ - U 

IF ID < II THEN PT = PO 

RETURN 

REM LES ES IF LELE: 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM#(PM$%) < > Z THEN PM8 = PM$ - U: RETURN 
PM& = PM$ - U 
ND = 35: GOSUB 8800: IF PT < MX THEN RETURN 
ND = 34: GOSUR 8800: RETURN 

REM #4 #7 THEN #*#n* 

RETURN 

REM étés ELSE ass 
ND = 34: GOSUB 8800: RETURN 

REM ##ts BEGIN ##*a 
P# = PT: RETURN 

REM LEZ] NHILE LEE] 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM#(PM$) < > Z THEN PM$ = PM$ - U: RETURN 
PM$ = PM$ - U:ND = 38: GOSUB 8800: RETURN 

REM ##ts REPEAT ###* 
PT = PW: RETURN 

REM #4#4 CONSTANT #*#*** 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
T1 = U: GOTO 7005 

REM ###t# VARIABLE ééés# 

T1 = 2: IF MID$ (E$,1i, LEN (MO$)) < > MOS THEN ER = 

28: RETURN 

GOSUB 32000: IF ER < > Z THEN RETURN 

IF MO$ = CHR$ (13) THEN ER = 23: RETURN 

GOSUB 32200: IF MU < > Z THEN ER = 20: RETURN 
GOSUB 32090 

IF FD + LM + 9 > MX OR MC = 255 THEN ER = 4: RETURN 
FOR I = Z TO LM - U: POKE FD + I, ASC ( MIDS (MOS,I 
+ U,U)): NEXT 

POKE FD + 1,32: POKE FD + I + U,Z: POKE FD + I + 2,M 
C5 POKE\BDUE I 283ATI 

IF T1 = 2 THEN POKE ED + I + 4,2: POKE FD + I + 5,2 
5 POKE: FD # I +#"6,235; 

IF T1 = U THEN POKE FD + I + 4, PEEK ( FN VP(PM$#)): 

POKE FD + I + 5, PEEK ( FN VP(PMS) + U): POKE FD + 
I + 6,255:PM% = PM$ - U 

POKE FD + I + 8, FN RQ{(DM): POKE FD + I + 7, INT (LM 
/ 256) 
DM = FD:FD = FD + LM + 9:MC = MC + U 

GOSUB 51000: RETURN 

REM  ##4r CARRAY ###» 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
TPS = PMS#(PM$#) + U: IF TP$ < U OR TP8& > 127 THEN ER = 

33: RETURN 

GOSUB 32000: IF ER < > Z THEN RETURN 

IF MO$ = CHR$ (13) THEN ER = 29: RETURN 

GOSUB 32200: IF NU < > Z THEN ER = 20: RETURN 

IF FD + LM + 7 + TP$8 > MX OR MC = 255 THEN ER = 4: R 
ETURN 

FOR I = Z TO LM - U: POKE FD + I, ASC ( MIBS (MOS,I 
+ U,U)): NEXT 

EOKE ED + 1,325 POKE ED +"I # U,Z: BOKE ED + +2;M 
C: POKE FD + 1 + 3,3 

POKE, ED + 4 + 4ATP$ PORE ED & Ion 5 + TP%,255 

PORE ED + I + 7 + PP, EN RO(DM}h: POKE ED + I + 6 + 
TP$, INT (DM / 256) 
DM = FD:FD = FD + LM + 8 + TP#:MC = MC + U: GOSUB 510 
O0:PM$ = PM$& - U: RETURN 

REM "ans FORGET #*##* 

GOSUB 32000: IF ER < > Z THEN RETURN 

IF MO$ = CHR$ (13) THEN ER = 29: RETURN 

VTAB 2: PRINT : VTAB 23: CALL CW: PRINT "Etes-vous s 
ur ? O/N “;: GOSCB 300: IF X$ < > "O" AND X$S < >" 
oc" AND X$ < > "N" AND X$ < > "n" THEN 7210 

IF X$ = "nan" OR X$ = "N" THEN PR = NC: RETURN 

VTAB 2: PRINT 

GOSUB 32200: IF MO$ = CHRS (13) THEN ER = 29: RETUR 
N 


7230 IF NU = Z THEN ER = 18: RETURN 

7240 IF NU < NM + U THEN ER = 22: RETURN 

7250 FD = AD:AD = AD + TP: GOSUB 51800:DM = PEEK (AD) * 2 
56 + PEEK (AD + U) 

7260 MC = NU: GOSUB 51000: RETURN 

7299 REM *#2# AIDE Ares 

7300 GOSUB 57000: GOSUB 57200:CO = 4: GOSUB 15000: GOSUB 
32090 

7310 GOSUB 50050: GOSUB 1350: GOSUB 51000 

7320 VTAB 2: PRINT : VTAB 19: PRINT PMS: PRINT ES: RETURN 

7399 REM NRA QUITTE 25% 

7400 VTAB 2: PRINT : VTAB 23: PRINT "Confirmer par 'C' ”; 
: GOSUB 300: IF XS = "C" OR X$ = "c" THEN TEXT : HO 
ME : PRINT "Au revoir ....... ": END 

7410 VTAB 2: PRINT : VTAB 23: CALL CW: RETURN 

7499 REM ##* MODE *##+ 

7500 IF NOT MF THEN GOSUB 1360: RETURN 

7510 GOSUB 1350: RETURN 

7599 REM tot RAZ **+# 

7600 GOSUB 15300: GOSUB 15900: GOSUB 15920:PR = NC: RETUR 
N 

7699 REM #*#+4 BELL téér 

7700 PRINT BIPS;:: RETURN 

7799 REM ###2  LISTEMOTS #*#*#* 

7800 AD = DM: GOSUB 51900:TP = Z: TEXT 

7810 IF AD = Z THEN 7870 

7815 VTAB 2: PRINT : VTAB 13 + TP: POKE 36,54 

7820 IF PEEK (AD) = 32 THEN 7850 

7830 PRINT CHRS ( PEEK (AD});:AD = AD + U: GOTO 7820 

7850 TP = TP + U: GOSUB 51800:AD = PEEK (AD) * 256 + PEE 
K (AD + U): IF TP = S THEN TP = Z: VTAB 2: PRINT : V. 
TAB 23: GOSUB 1300: VTAB 2: PRINT : VTAB 23: CALL CW 
: GOSUB 51900: TEXT 

7860 GOTO 7810 

7870 IF TP < > Z THEN VTAB 2: PRINT : VTAB 23: GOSUB 13 
00: VTAB 2: PRINT : VTAB 23: CALL CW 

7880 GOSUB 51000: RETURN 

7899 REM *### DEMO #éé8 

7900 ER = 28: RETURN 

7999 REM ###t  INIT #*** 

8000 ER = 28: RETURN 

8798 REM Recherche d'un mot de numero ND dans un mot cr 
æ 

8799 REM {utilise pour ELSE THEN et REPEAT) 

8800 PT = PT + 2 

8820 IF PEEK (PT + U) = ND OR PT > = MX THEN RETURN 

8830 IF PEEK (PT) = 129 THEN PT = PT + 3: 150TO 8820 

8840 IF PEEK (PT) = 128 AND PEEK (PT + U) < > 23 THEN 
PT = PT + 2: GOTO 8820 

8850 PT = PT + 3 + PEEK (PT + 2): GOTO 8820 

8997 REM 

8998 REM Cherche l'adresse du mot cree NU 

8999 REM 

9000 I = DM 

9005 IF I = Z THEN RETURN 

9010 IF PEEK (I) < > 32 THEN°T = I + U: GOFO 9010 

9015 IF PEEK (I + 2) = NU THEN AD = I + 4:1 = Z: GOTO 90 
05 

9020 AD = I: GOSUB 51800:I1 = PEEK (AD) * 256 + PEEK (AD 
+ U): GOTO 9005 

9997 REM 

9998 REM Affichage des messages d'ERREUR 

9999 REM 

10000 IF ER = 34 THEN MSS = "Erreur d'E/S sur Disquette." 
: GOTO 10010 

10004 VTAB 2: PRINT : VTAB 2 

10005 PRINT DS"OPEN MESSAPF,L39": PRINT DS"READ MESSAPF,R 
"ER: INPUT MSS$S: PRINT DS"CLOSE" 

10010 VTAB 2: PRINT : VTAB 23: CALL CW: PRINT MSS$S: VTAB 2 
0:CO = PR: IF PR > 80 THEN CO = PR - 80: VTAB 21 

10020 POKE 36,CO - 1: INVERSE : PRINT " ";: NORMAL : VTAB 

2: PRINT : VTAB 24: GOSUB 1300: VTAB 2: PRINT : VTA 

B 23: CALL CW 

10030 ER = Z: GOSUB 15900: GOSUB 15920: GOSUB 15300: RETUR 
N 

10997 REM 

10998 REM Mise en place du DICO 

10999 REM 

11000 VTAB 20: POKE 36,10: PRINT "Preparation du Diction 
naire en COURS ..." 

11005 PRINT D$S"BLOAD DICO" 

11010 FD = 34714: REM FD=FINDICO 

11020 DM = 34705: REM DM=LASTMOT (DERNIER MOT) 

11025 AY = FD: REM FIN DU DICO DE BASE 

11030 I = DM:K = NM 
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pm 


11040 IF I = Z THEN RETURN 20010 IF MC = 255 THEN ER = 4: RETURN 
11050 IF PEEK (I) < > 32 THEN TS(K) = TS(K) + CHRS { P 20020 GOSUB 32000: GOSUB 32090: IF MO$ = CHRS$ (13) THEN 
EEK {1)):I = I + U: GOTO 11050 ER = 19: RETURN 
11060 AD = I: GOSUB S51800:K = K - U: VTAB 20: POKE 36,51: 20030 IF ER < > Z THEN RETURN 
PRINT CHR$ (42 + K - ( INT (K/ 2) * 2)) 20040 GOSUB 32200: IF NU < > Z THEN ER = 20: RETURN 
11070 I = PEEK (AD) * 256 + PEEK (AD + U): GOTO 11040 20045 A1 = FD 
11080 VTAB 20: POKE 36,0: CBLL CL 20050 IF A1 + IM + 3 > MX THEN ER = 4: RETURN 
11090 RETURN 20060 FOR I = Z TO LM - 1: POKE A1 + I, ASC ( MID$ (MO$,I 
11997 REM + U,U)): NEXT 
11998 REM Examen du DICO (pas utilise par le programme) 20070 POKE Al + LM,32:A1 = Al + LM + U: POKE Al,2Z 
11999 REM 20080 A1 = A1 + U: POKE Al,MC:Al = Al + U: POKE Al,4:A1 = 
12000 I = DM Al1+0 
12006 IF I = Z THEN END 20100 GOSUB 32000: GOSUB 32090: GOSUB 32200: IF NU = Z TH 
12007 PRINT I;" Le” EN GOSUB 32100 
12010 IF PEEK (I) < > 32 THEN PRINT CHR$ ( PEEK (I)); 20105 IF MO$ = CHR$ (13) THEN ER = 19: RETURN 
:I = I + U: GOTO 12010 20106 IF NU = Z THEN ER = 18: RETURN 
12020 PRINT " "; PEEK (I + U) * 256 + PEEK (I + 2};" 20110 IFER < > ZOR NOT CP THEN 20310 
";:A0 = I: GOSUB 51800:I = PEEK (AD) * 256 + PEEK 20112 IF NU = 49 OR NU = 50 THEN ER = 5: GOTO 20300 
(AD + U): PRINT I: GOTO 12096 20120 IF NU = 28 THEN ER = 23: GOTO 20300 
14997 REM 20130 IF NU > 38 AND NU < 51 AND NU < > 47 THEN ER = 5: 
14998 REM Affichage Pile Ecran GOTO 20300 
14999 REM 20140 IF NU = 23 THEN GOSUB 32000: IF MO$ = ÆCHR$ (13) © 
15000 IF PM$ = Z THEN RETURN R MIDS (MOS,LM,1) < > CHRS$S (34) THEN ER = 31: GOT 
15010 FOR I = 1 TO PM%; VTAB 2: PRINT : VTAB 15 - I: POKE © 20300 
36,CO: PRINT RIGHTS (" # +  STRS$ (PM$#(1)),6) 20150 IF NU < > 23 THEN 20160 
15020 NEXT : RETURN 20151 IF A1 + 3 + LM - U > MX THEN ER = 4: GOTO 20300 
15199 REM Pile saturee ?? 20152 POKE A1,128:A1 = Al + U: POKE A1,23:A1 = Al + U: PO 
15200 IF PM$ < 11 THEN PM% = PM$% + l: RETURN KE A1l,LM - U: FOR I = U TO LM - U: POKE AI + I, ASC 
15201 ER = 21: RETURN ( MIDS$S (MOS,I,U)): NEXT :A2 = Al + LM: GOTO 20210 
15209 REM Y a-t-11l assez d'elements sur la pile ?? 20160 IF NU < > 99 THEN 20170 
15210 IF PM$ < PD THEN ER = 1 20161 IF Al + 3 > MX THEN ER = 4: GOTO 20300 
15211 RETURN 20162 POKE A1,129:A1 = A1 + U:TP$ = UN: POKE AJ, INT (TP# 
15219 REM Pile de retour saturee ?? / 256):A1 = A1 + U: POKE A1, EN RO(TP$#):A1 = A1 + U 
15220 IF PR# < 255 THEN PR$ = PR$ + l: RETURN : GOTO 20210 
15221 ER = 21: RETURN 20170 IF NU = 29 THEN CP = FX: GOTO 20300 
15297 REM 20180 IF NU > 29 AND NU < 39 THEN GOSUB 21000: IF ER < 
15298 REM Initiaæalisation des Piles > Z THEN 20300 
15299 REM 20190 IF A1 + 2 > MX THEN ER = 4: GOTO 20300 
15300 PM$ = Z;PR$ = Z:MOS$ = "": GOSUB 32090: RETURN 20200 POKE A1l,128:A1 = A1 + U: POKE A1l,NU:A1l = Al + U 
15397 REM 20210 GOSUB 32000: GOSUB 32090: GOSUB 32200: IF NU < >2zZ 
15398 REM Test si resultat entre NN et NX THEN 20300 
15399 REM 20211 GOSUB 32100: IF NU < > Z THEN 20300 
15400 IF TP < NN OR TP > NX THEN ER = 3 20212 IF MO$ = CHR$ (13) THEN ER = 19: GOTO 20300 
15401 RETURN 20213 ER = 18 
15897 REM 20300 GOTO 20110 
15898 REM Efface Pile AVANT 20310 IFER< > Z OR CP THEN RETURN 
15899 REM 20315 IF FC = 31 THEN ER = 10: RETURN 
15900 POKE 33,7: POKE 32,4: POKE 34,3: POKE 35,14: HOME : 20316 IF FC = 33 OR FC = 35 THEN ER = 7: RETURN 
TEXT : RETURN 20317 IF FC = 36 THEN ER = 14: RETURN 
15919 REM Efface Pile APRES 20318 IF FC = 37 THEN ER = 13 
15920 POKE 33,7: POKE 32,42: POKE 34,3: POKE 35,14: HOME 20319 IF ER < > Z THEN RETURN 
: TEXT : RETURN 20320 IF A1 + 3 > MX THEN ER = 4: RETURN 
15997 REM 20330 POKE A1,255:A1 = A1 + U: POKE Al, INT (DM / 256):A1 
15998 REM %#*##* DEMO #***#*# = A1 + U: POKE Al, EN ROQ(DM):A1 = Al + U:DM = FD 
15999 REM 20340 FD = A1:MC = MC + U: GOSUB 51000 
16000 GOSUB 15900: GOSUB 15920: GOISUB 50005: GOSUB 15300: 20345 MO$ = "": GOSUB 32090: VTAB 2: PRINT : VTAB 24: POKE 
GOSUB 1360 36, Z 
16005 VTAB 2: PRINT : VTAB 23: PRINT "Numero de DEMO (XX) 20350 RETURN 
: M": CALL CW: GET XS:X = ASC (X$) - 48: IF X < 0 20899 REM 
OR X > 9 THEN PRINT BIP$;: GOTO 16005 20900 VTAB 2: PRINT : VTAB 24: POKE 36,28: PRINT "Compilat 
16010 NE = X: PRINT XS;: GET X$: IF X$ = CHRS (13) THEN 1 ion en cours .... Soyez patients.";: RETURN 
6025 20997 REM 
16015 X = ASC (X$) - 48: IF X < O OR X > 9 THEN PRINT BI 20998 REM *#*##% Analyse SYNTAXIQUE des structures de co 
PS$;: GOTO 16005 nEroïlle. -##24 
16020 NE = NE * 10 + X: PRINT X$};: GET XS$S: IF X$ < > CHR 20999 REM 
$ {13} THEN PRINT BIP$;: GOTO 16005 21000 IF FC = Z THEN GOSUB 21050: RETURN 
16025 VTAB 2: PRINT : PRINT DS$S"OPENDEMOAPF,L160": VTAB 2: 21010 GOSUB 21100: RETURN 
PRINT : PRINT D$"READDEMOAPF,R"NE:ES$ = "" 21050 IF NU = 31 OR NU = 33 OR NU = 36 THEN FC = NU: RETU 
16040 GET X$: IF X$ = CHR$S (13) THEN 16050 RN 
16045 E$ = ES + XS$S: GOTO 16040 21055 IF NU = 30 THEN ER = 24: RETURN 
16050 VTAB 2: PRINT : PRINT D$°CLOSE": IF ES = "FIN" ORE 21060 IF NU = 32 THEN ER = 11: RETURN 
S = MSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 21065 IF NU = 34 THEN ER = 8: RETURN 
SSSSSSSSISSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSS 21070 IF NU = 35 THEN ER = 9- RETURN 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSSSSSSSSS 21075 IF NU = 37 THEN ER = 12: RETURN 
SSSSSSSS" THEN ER = 36: RETURN 21080 ER = 25: RETURN 
16060 NC = LEN (E$) 21100 IF FC = 31 THEN GOSUB 21150: RETURN 
16070 IF MID$ (E$,NC,1) = " " THEN NC = NC - 1: GOTO 160 21101 GOSUB 21200: RETURN 
70 21150 IF NU = 31 OR (NU > 32 AND NU < 39) THEN ER = 26: R 
16080 E$ = MIDS (ES$,1,NC) + CHRS (13):NC = LEN (ES) ETURN 
16090 VTAB 2: PRINT : VTAB 19: CALL CW: PRINT FMS$S: PRINT 21151 IF NU = 32 THEN EC = 2 
E$: RETURN 21152 RETURN 
19997 REM 21200 IF NU = 30 THEN ER = 24: RETURN 
19998 REM ***#* COMPILATION CEEE] 21205 IF FC = 33 THEN GOSUB 21250: RETURN 
19999 REM 21210 GOSUB 21300: RETURN 
20000 GOSUB 15900: GOSUB 15920:CO = 4: GOSUB 15000: GOSUB 21250 IF NU = 34 THEN FC = Z: RETURN 
20900:CP = VR:PR = 3:FC = Z 21251 IF NU = 35 THEN FC = 35: RETURN 


ZE mm 
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21252 
21300 
21301 
21350 
21351 
21400 
21401 
21450 
21451 
21500 
21505 
21510 
30997 
30998 
30999 
31000 


31010 
31015 


31020 


31025 
31030 
31040 
31041 

31050 
31060 


31061 
31897 
31898 
31899 
31900 
31906 
31907 
31910 
31911 


31930 
31947 
31948 
31949 
31950 
31956 
31960 
31967 
31 968 
31969 
31970 


31997 
31998 
31999 
32000 
32010 


32040 


32050 


32055 


32060 
32065 
32070 
32087 
32088 
32089 
32090 
32093 


. 32095 
32097 
32098 
32099 
32100 
32110 


32120 
32130 


32140 


ER = 26: RETURN 


IF FC = 35 THEN GOSUB 21350: RETURN 
GOSUB 21400: RETURN 

IF NU = 34 THEN FC = Z: RETURN 

ER = 26: RETURN 

IF FC = 36 THEN GOSUB 21450: RETURN 
GOTO 21500 

IF NU = 37 THEN FC = 37: RETURN 

ER = 14: RETURN 


IF FC < > 37 THEN ER = 15: RETURN 
IF NU = 38 THEN FC = Z: RETURN 
ER = 26: RETURN 


REM 

REM ENTREE d'une ligne de 159 caracteres 

REM 

VTAB 2: PRINT : VTAB 19: POKE 36,0: CALL CW: PRINT 
PMS:NC = O:ES$ = ®°:X = FRE (0):X = Z:MO$ = "": GOSU 
B 32090 

IF NOT (NC < > 159 AND X < > 13} THEN 31050 
VTAB 2: PRINT : VTAB 20 + INT (NC / 80): POKE 36,N 
C - INT (NC / 80) * 80 

GOStIB 300: IF X < 123 AND X > G6 THEN X = X - 32:X5S 
= CHRS (X) 

IF X = 27 THEN TEXT : HOME : GOTO 31000 

IF X = 8 THEN GOSUB 31950 

IF X < > 8 THEN GOSUB 31900 

GOTO 31010 

IF X < > 13 THEN ER = 16: GOSUB 10000: GOTO 31000 
NC = NC - 1:E$ = MIDS$ (E$,1,NC): IF RIGHTS (E$,1) 


= " " THEN 31060 


NC = NC # 1:ES$ = ES + CHRS (13): RETURN 
REM 

REM on n'a pas tape CTRL-H 

REM 


IF NOT (NC = O AND (X = 32 OR-X = 13)) THEN 31910 
PRINT BIPS;: IF X = 13 THEN X = 0 

RETURN 

IF X < 32 AND X < > 13 THEN PRINT BIPS$S;: RETURN 
NC = NC + U:ES = ES$ + XS: IF X < > 13 THEN PRINT X 
$; 
RETURN 
REM 
REM 
REM 
IF NC = O THEN PRINT BIPS;: RETURN 
NC = NC - J:ES$ = MIDS (E$,1,NC): GOSUB 31970 


on a tape CTRL-H 


RETURN 

REM 

REM Recul 

REM 

VTAB 2: PRINT : VTAB 20 + INT (NC / 80): POKE 36,N 
C - 80 * INT (NC / 80): PRINT " " + CHRS$ (8);: RET 
URN 

REM 

REM Recherche d'un mot dans l'ENTREE 

REM 

MO$ = "V:LM = 0 


IF MID$S (ES$S,PR,1) = " " THEN PR = PR + l: GOTO 320 
10 

IF MID$S (E$,PR,1) = 
(13) THEN 32055 
MOS$ = MOS + MIDS (ES,PR,1):PR = PR + l:LM = LM + 1: 


GOTO 32040 


" * OR MIDS (ES$,PR,1) = CHR$S 


IF LM > 16 THEN ER = 17: RETURN 

IF MID$S (ES$,PR,1} < > CHR$S (13) THEN RETURN 

IF LM = O THEN MOS = CHRS (13):PR = PR + 1 

RETURN 

REM 

REM Affiche le MOT 

REM 

IF MOT$ = CHR$ (13) THEN RETURN 

VTAB 2: PRINT : VTAB 14: POKE 36,17: PRINT LEFTS ( 
MOS$ + " ",16) 

RETURN 

REM . 

REM MO$ est-il un nombre ?? 

REM' 

ER = Z: FOR I = U TO LEN (MOS) 

X = ASC { MID$ (MO$,I,U)): IF (X < > 43 ANDX < > 
45 AND (X < 48 OR X > 57)) OR (X = 43 AND I < >U) 
OR (X = 45 AND I < > U) THEN ER = 18:I = LEN (MOS 
J 

NEXT : IFER < > Z THEN RETURN 

VN = VAL (MOS):NU = 99: IF VN < NN OR VN > NX THEN 
ER = 3 

RETURN 


32197 
32198 
32199 
32200 
32201 
32202 
32203 
32209 
32210 
32212 
32213 


32214 


32215 
32220 
32225 


32230 
32235 
32236 


32245 
32250 
39997 
39998 
39999 
40000 


40060 


50004 
50005 


50050 
50055 


50897 
50898 
50899 
51000 
51010 
51020 
51030 
51040 
51045 


51050 
51797 
51798 


51799 
51800 
51805 


51810 


51815 
51820 
51825 


51830 


51835 
51860 
51897 
51898 
51899 
51900 


55999 
56090 
56002 
56003 


56004 


56005 


56006 


REM 

REM Recherche du numero d'un mot dans le dico 
REM 

NU = 2: FOR I = U TO NM 

IF T$S(I) = MOS$ THEN NU = I:I = NM 

NEXT : IF NU < > Z THEN RETURN 

IF MC = 101 THEN RETURN 

AD = DM 

IF AD < AY OR NU < > Z THEN 32245 

TP = 2 

IF PEEK (AD + TP) < > 32 THEN TP = TP + U: GOTO 3 
2213 


IF TP < > LM THEN AD = AD + TP: GOSUB 51800:AD = 
PEEK (AD) * 256 + PEEK (AD + U): GOTO 32210 

FG = VR 

FOR I = Z TO LM - U 


IF PEEK (AD + 1} < > ASC ( MIDS (MOS,I + U,U)} T 
HEN FG = FX:I = LM 
NEXT 

IF FG THEN NU = 
AD = AD + TP: GOSUB 51800:AD = 
EEK (AD + U}j: GNTO 72210 

IF AD = Z AND NU = Z THEN IF MOS = 
RETURN 
REM 
REM 
REM 
ER = PEEK (222): IF ER > O ANDER < 
: GOSUB 10000: RESUME 

PRINT "ERREUR NON TRAITEE Nf "ER" 
256 * PEEK (219): END 

REM Efface Ecran du Forth 

FOR I = U TO 5:ECS{I) = 
SUB 50055: RETURN 

REM Affiche ECRAN du Forth 

TEXT : POKE 33,16: POKE 32,18: POKE 34,4: POKE 35,0 
9: HOME : TEXT : FOR I = U TO 5: VTAB 4 + I: POKE 36 
18: PRINT ECS$(I);: NEXT : RETURN 

REM 

REM Affichage Fin du DICO 

REM 

GOSUB 51900:AD = 
EOR"T =%1 TO 5 
IF PEEK (AD) = 32 THEN 51040 

PRINT CHR$ ( PEEK (AD));:AD = AD + 1: 
IF I = 5 THEN 51050 
PRINT : GOSUB 51800:AD = 
AD + 1) 
NEXT : 
REM 
REM Calcul l'OFFSET pour trouver l'adresse suivant 
e 

REM 

IF PEEK (AD +2) < 
IF PEEK (AD + 3) = 
= AD + 7: RETURN 
IF PEEK (AD + 3} = 
+ 6: RETURN 
OS = 4 

IF PEEK (AD + OS) = 255 THEN 51860 

IF PEEK (AD + OS) = 128 AND PEEK (AD + OS + 1) = 
23 THEN OS = OS + 3 + PEEK (AD + OS + 2): GOTO 5182 
0 

IF PEEK (AD + OS) = 


PEEK (AD + TP + 2): GOTO 32210 
PEEK (AD) * 256 + P 


"+" THEN NU = U 


Gestion des ERREURS 


16 THEN ER = 34 


EN " PEEK (218) + 


NEXT :EC = U:EL = U: 


DM 


GOTO 51020 


PEEK (AD) * 256 + PEEK | 


TEXT : RETURN 


100 THEN AD = AD + 3: RETURN 
1 OR PEEK (AD + 3) = 2 THEN AD 
AD -+ 


3 THEN AD = PEEK (AD + 4) 


129 THEN OS = OS + 3: GOTO 518 
— OS + 2: GOTO 51820 
AD + OS + 1: RETURN 


Efface ecran fin du DICO 

REM 

TEXT : POKE 33,16: POKE 32,55: POKE 34,12: POKE 35, 

17: HOME : RETURN 

REM 

REM INITIALISATION 

HIMEM: 34304: REM $8600 

2 = O:U = 1:ER = Z:I = Z:J = Z:TP = 

D$ = CHRS$S (4):CL = - 868:CW = - 958:XS$S = 

:MF = EX:PR = U:NU = Z;:PM$ = Z:PR$ = Z:E$ = 

FD = Z:LM = Z:MOS$ = "":NC = Z:LM = Z:VN = Z:FG = Z:N 
= 32767:NN = - NX:SU = VR:MS$ = "":VTS MreNS = 
3 "Ne AD = Z:2MS = "M:MX = 9 * 4096 + 6 * 256:D 
= Z:PD = 2 

DD = 8 * 4096 + 6 * 256 + 1:MC = 

Pret'":NE = U:0S = Z:CP = VR:FC = 

U:EL = U;CO = & 

Z:PW = Z:T1 = 2:T9 = Z2:X1 


Z:VR = U:FX = 2: 
"ex = 2 


101:TP$ = Z:PM$ =" 
Z:N = Z:PT = 2:PO = 


Z:X2 = 2:ND = Z:DEM 


(ll 


II - 
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Pom's n° 27 


O$ = "":TIS$S = "L'APPRENTI FORTHier":BIP$S = CHRS (7) 

56010 NM = 50: DIM PM#{11),PR(255) ,EC$(5}, T$ (NM) 

56015 DEF FN RQO(X) = X - INT (X / 256) * 256 

56016 DEF EN VP{X) = PEEK (107) + PEEK (108) * 256 + 7 
FR PR 

56020 ONERR GOTO 40000 

56030 RETURN 

56999 REM 

57000 REM ECRAN d'AIDE 

57001 REM 

57005 GOSUB 57700: VTAB 1: POKE 36,48: PRINT "....";: INV 


ERSE : PRINT "Ecran d'AIDE a l'utilisateur": NORMAL 

VTAB 3: POKE 36,0: PRINT "DEMO acces a un f 
ichier de demonstration(doit etre en debut de ligne) 
LA 


57010 


57020 PRINT "INIT 
e en debut de ligne)" 
57030 PRINT "LISTEMOTS 

LA 


57060 PRINT "MODE 
A PAS" 


reinitialise le FORTH (doit etr 


liste le dictionnaire à l'ecran 


commute mode NORMAL et mode PAS 


57070 PRINT "OUITTE arret du programe" 

57080 PRINT "AIDE affiche cet ecran" 

57085 PRINT "RAZ initialise les piles" 

57090 PRINT "CARRAY tableau d'octets (25 CARRAY XZ 


donne un tableau XZ de 26 octets)" 


57100 PRINT "Cà et C! pour utiliser les elements d'un 
tableau” 
57110 PRINT "+LOOP 11 n'y à pas de boucle LOOP,don 


c toujours preciser le pas" 


57120 PRINT "Nombres entiers de -32767 à 32767" 
57130 PRINT "Autres mots 11s sont classiques du FORTH 79 
57140 PRINT : PRINT "Longueur d'ure phrase : limitee a 15 


9 caracteres." 

PRINT "MOTS CREES limites a 16 caracteres pour le n 
om (154 mots maxi.)" 

PRINT "L'APPRENTI FORTHier n'admet pas les structur 
es de controle imbriquees." 

PRINT " Attention aux mots ‘'à' et 
ans la memoire)" 

PRINT " La recherche des erreurs prend du temps... 
Soyez PATIENTS" 


57145 
57150 
57151 


"Câ' (ecriture d 


57152 


57155 PRINT " Ne jamais taper CTRL-C" 

57160 VTAB 24: POKE 36,12: GOSUB 1300 

57180 RETURN 

57199 REM 

57200 REM Ecran de travail 

57201 REM 

57205 GOSUB 57700: INVERSE : FOR I = 4 TO 14: VTAB I: POK 


E 36,1: PRINT " ";: POKE 36,117 PRINT " ";: POKE 3 
6,39: PRINT ® ";: POKE 36,49: PRINT " ";: NEXT 
VTAB 15: POKE 36,1: PRINT ” vis POKE\ 36; 
39: PRINT ” ";: VTAB 16: POKE 36,2: PRINT 
"PILE AVANT"; : POKE 36, 40: PRINT "PILE APRES" 

VTAB 4: POKE 36,16: PRINT " ECRAN ses V 
TAB 10: POKE 36,16: PRINT ” né 

FOR I = 5 TO 9: VTAB I: POK€ 36,16: PRINT ® ”;: PO 
KE 36,34: PRINT " ";: NEXT 

NORMAL : VTAB 12: POKE 36,16: PRINT "MOT en COURS : 
": VTAB 4: POKE 36,54: PRINT "MODE :": VTAB 11: POKE 
36,53: PRINT "FIN du DICTIONNAIRE" 

57299 RETURN 

57699 REM 
57700 REM 
57701 REM 
57705 HOME : PRINT TAB( 30);TIS$: RETURN 
57799 REM 


° 
° 


57210 


57215 
57220 


57225 


#“ase TITRE 


Fichier ‘DEMOAPF 


créé par le programme CREDEMO 


Phrase 1 : 

123 58 + 78 SWAP DUP * AND 1 <> 

Phrase 2 : 

CLS .* FORTH" 42 78 = 555 + 4 * 

Phrase 3 : 

AIDE LISTEMOTS 12 45 78 96 * + DUP DROP SWAP 45 OVER 78 ROT 
Phrase 4 : 

: BOOM CR ESSAI ."” BOOM" ; 

Phrase 5 : 

: VALIDE KEY BEGIN 13 <> WHILE KEY REPEAT ." RT" ; 


Phrase 6 : 
: ESSAI .* OK* VALIDE CR ,;" FIN" g 


Phrase 7 : 
VARIABLE XYZ 


Phrase 8 : 
24 CONSTANT CST 


Phrase 9 : 
: ENTR KEY DUP BEGIN 32 = WHILE KEY DUP REPEAT EMIT ; 


Programme ‘CREMESS’ 


REM ftéteéaémenentstatenanténattennane 


REM Programme CREMESS 
REM Creation des Messages d'ERREUR 
pour programme APF 
REM Le fichier cree est MESSAPF 
REM C'est un fichier direct 
REM Fej Nissuorgsky 
10 REM téététééétéééééééééééétéééééététt 
99 D$ = CHR$ (4): PRINT D$"PR#3" 
100 TEXT : HOME : PRINT "CREATION des messages d'erreur d 
u programme APF": PRINT “Le fichier s'appelle MESSAPF. 
LA 


105 PRINT : PRINT "Taper <C> pour creer un message ou <V> 
pour VOIR un message <6> pour quitter ";: GET X$ 

106 PRINT X$:X = ASC (X$): IF X = 38 THEN END 

107 IF X = 67 OR X = 99 THEN GOSUB 110: GOTO 100 

108 IF X = 86 OR X = 118 THEN GOSUB 2000: GOTO 100 

109 GOTO 105 

110 HOME : PRINT "CREATION des Messages (36 Caracteres ma 
xi.)] <s> Pour Quitter": PRINT : INPUT "Numero : “;NUS: 
NU = INT ( VAL (NUS$)): IF NU < 1 OR NU > 99 THEN 110 

120 X = ASC (X$): IF X = ASC ("&"“) THEN END 

150 M$ = "": PRINT "Votre Message (<é>=-Quitte) : "; 

152 GET X$:X = ASC (X$): IF X = 13 AND LEN (M$) = O THE 


N 152 

153 IF X = 8 AND LEN (M$) < > O THEN GOSUB 1000: GOTO 
152 

154 IF X = 13 THEN 160 

155 IF X = ASC ("&") THEN N = N - l: RETURN 


156 IF X < 32 OR X > 125 THEN 152 

157 PRINT XS$;:MS = MS + XS$: IF LEN (M$) > 36 THEN INVER 
SE : PRINT "Trop long": NORMAL : PRINT : GOTO 150 

158 GOTO 152 

160 PRINT : PRINT D$"OPEN MESSAPF, L39": PRINT DS"WRITE ME 
SSAPF, R°NU 

170 PRINT CHRS$ (34) + M$ + 

180 RETURN 

1000 REM On a tape <-- (CTRL-H) 

1010 M$ = MID$ (M$,1, LEN (M$) - 1): PRINT : VTAB PEEK { 
37): POKE 36,29 + LEN (M$): CALL - 868: RETURN 

2000 HOME : PRINT "VOIR un message": PRINT :; INPUT "Numer 
o : ";NUS:NU = INT ( VAL (NU$S)): IF NU < 1 OR NU > 9 
9 THEN 2000 

2010 PRINT D$"OPEN MESSAPF,L39": PRINT D$"READ MESSAPF, R" 
NU: INPUT M$: PRINT D$"CLOSE" 

2020 PRINT : PRINT M$: PRINT : PRINT "Taper une Touche "; 
: GET X$: PRINT X$: RETURN 

3000 REM Liste IMPRIMEE des MESSAGES 

3010 HOME : PRINT "ASSUREZ-VOUS QUE L'IMPRIMANTE EST ERAN 
CHEE !!!!!": PRINT : PRINT "VOUS ALLEZ LISTER SUR L'I 
MPRIMANTE LES MESSAGES" 

3020 GOSUB 3500 

3030 NM = 35:D$ = CHR$ (4): PRINT D$"PR#l1": PRINT "Liste 
des Messages d'Erreur du progranme L'APPRENTI FORTHie 
r": PRINT : PRINT : PRINT 

3035 PRINT D$"OPEN MESSAPF, L39" 

3040 FOR I = 1 TO 35: PRINT D$"READ MESSAPF,R"I: INPUT M$ 
: PRINT RIGHTS (" "+ STR$ (1I),2);" ";M$S: NEXT 

3050 PRINT D$"CLOSE": PRINT DS$S"PR#0": END 

3500 REM ABANDON ? 

3510 PRINT : PRINT "POUR ABANDONNER TAPER 'A' SINON <RETU 
RN> ";: GET XS$: IF X$ = "a" OR X$ = "A" THEN END 

3520 IF X$ < > CHR$S (13) THEN 3510 

3530 PRINT X$: RETURN 

5000 REM Creation du Fichier MESSAPF 12 lere fois 

5005 HOME : PRINT "CREATION du FICHIER MESSAPF la lere fo 
is": GOSUB 3500 

5010 D$ = CHR$S (4J:M$ = "": FOR I = 1 TO 38:M$ = MS + #4" 
: NEXT : PRINT D$"OPEN MESSAPF, L39" 

5020 FOR I = 1 TO 50: PRINT D$"WRITE MESSAPF,R"I: PRINT M 
$: NEXT 

5030 PRINT D$"CLOSE" 


CHR$ (34): PRINT D$"CLOSE" 





Programme ‘GARDE.APF 


4 REM #*##tttttttééééétéiétikttétéééééétététatététtttætttt ét 

2 REM * Page de Garde du programme APF V3.0 * 

3 REM * Nom de ce programme : GARDE.APF + 

$ REM * * 

8 REM * Fej Nissourgsky (c) 1985 CHANCELADE 24650 *+ 

9 REM tétttitététéittététééétt tt tt #4 tt tt À À À À À À 

10 PRINT CHR$ (4);"PR#3": TEXT : HOME 

20 GOSUB 1000: REM Implante l'AMPERSAND &8KEY 

25 VTAB 2: PRINT 

30 VTAB 1: POKE 36,11: PRINT "PROGRAMME D'ACQUISITION DES 
CONCEPTS DU LANGAGE FORTE" 

35  INVERSE 

40. VTAB. 35 POKE 36/15: BRENT Mhossrsrsrevare suetets L'APPRENTI FO 
RPHBSE fosaseaasrs ji 

45 NORMAL 

50 VTAB 5: POKE 36,15: PRINT "(c) Fej Nissuorgsky 24650 

CHANCELADE" 

60 VTAB 8: POKE 36,9: PRINT "Ce logiciel permet de simule 
r un FORTH. Il n'en a pas la vitesse” 

70 VTAB 10: POKE 36,6: PRINT "mais 11 comporte de nombreu 
x messages d'erreur tres explicites” 

80 VTAB 12: POKE 36,6: PRINT "et l'utilisateur peut ‘voir 
" l'effet de chacun des 'mots' FORTH sur la” 

90 VTAB 14: POKE 36,6: PRINT "pile, l'ecran ou le diction 
naire(mode PAS À PAS). Le mode NORMAL ne montre" 

100 VTAB 16: POKE 36,6: PRINT "pas les etats intermediair 
es-.de da piles” 

110 VTAB 18: POKE 36,6: PRINT "Il est possible d'utiliser 

: constantes, Variables, tableaux et" 

120 VTAB 20: POKE 36,6: PRINT "de creer des mots nouveaux 
. DEMO donne acces a un fichier de demonstration." 

130 VTAB 22: POKE 36,6: PRINT "Il s'agit d'un progranme d 
‘apprentissage, 11 n'est pas rapide,.." 

140 VTAB 24: POKE 36,6: PRINT "Pour continuer taper une t 
ouche ";: £& KEY 

200 VTAB 2: PRINT : PRINT CHR$ (4)"RUN APF 22-4,D1" 

999 END 

1000 Q = 45 

1010 FOR I = O TO Q - 1: REAC Z$%: POKE 769 + I,Z2%: NEXT 


1020 POKE 1014,1: POKE 1015,3 
1190 RETURN 


28 


1200 DATA 44,0,192,16,251,173,0,192,44,16,192,41,127,141, 


0,3,201,32, 144,14,165,184,24,105,3 


1210 DATA 133,184,165,185,105,0,133, 185, 96,201,13,240,238 


,201,8,240,234, 76,1,3 





Fichier MESSAPF 


créé par le programme ‘CREMESS" 


9 où En Nj hu 


Insuffisance d'éléments sur la pile. 
Division par ZERO. 
Dépassement (numérique). 
Plus de place en MEMOIRE. 
Mot IMMEDIAT. 
Mot interdit en mode Immédiat. 
IF sans THEN. 
THEN sans IF. 
£ELSE sans IF. 
DO sans +LOOP. 
+LO0P sans DO. 
WHITE sans BEGIN. 
WHILE sans REPEAT. 
BEGIN sans WHILE. 
REPEAT sans WHILE. 
ENTREE trop LONGUE (>159 caract.). 
MOT trop LONG (>16). 
MOT INCONNU. 
sans ; 
MOT non unique. 
Pile SATUREE. 
Dictionnaire PROTEGE. 
Répétition de #’":"' 
I hors d'une boucle. 
REPEAT sans BEGIN. 
Structures de controle imbriquées. 
; sans 
Le mot doit etre en DEBUX de ligne. 
Il manque un NOM. 
Sonmet de pile INVALIDE. 
Il manque un "". 
Structure INCOMPLETE. 
Hors limites (Tableaux). 
Erreur sur DISQUE. 
Absence de ELSE. 


Éditeur Plein Écran 





Le Pacha 


ePE 


Apple //e, le+, //c 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran sans 
relire les lignes. 

Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 


DOS, ProDOS, 40, 80 colonnes 


200,00 F TTC franco (bon de commande page 74). 
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La première partie de cet article 
proposait un programme sous 
forme de commande CP/M 
permettant de configurer la carte 
Super Série d'Apple. Après 
configuration, des fichiers 
pouvaient être transférés d'un 
ordinateur à l'autre par la 
commande CP/M PIP. Une 
transmission plus évoluée, tel est 
l'objet de ce deuxième volet. 


XMODEM 


(protocole de Ward Christensen) 


Le protocole XMODEM : été 
choisi car il est très courant, et 
c'est le plus simple des 
protocoles “hautes perfor- 
mances”. Ilest en effet beaucoup 
plus puissant que les protocoles 
type D1/D3 ou ENQ/ACK, et 
reste relativement simple à 
implanter comparé à des 
“monstres” comme KERMIT. 


Dans un protocole logiciel, la 
gestion de la transmission 
(appelée aussi Contrôle de flux) 
n'est plus assurée par les signaux 
de la RS232 mais par des codes 
échangés entre émetteur et 
récepteur. De ceci découlent 
plusieurs avantages : 


* la liaison électrique est plus 

simple. En local, un câble pour 
XMODEM se ramène à trois fils 
seulement : Masse, TXD, RXD. 
(TXD et RXD étant bien sûr 
croisés) ; 


+ le dialogue entre le programme 

émetteur et le programme 
récepteur autorise une 
automatisation complète de la 
transmission. Il y a envoi d'un 
bloc de données, contrôle par le 
récepteur, et envoi d'un accusé de 
réception ou au contraire d'une 
demande de renvoi en cas 
d'erreur. En cas de non réponse 
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(coupure de ligne momentanée, 
ou perte du code retour), il y a 
réémission automatique du bloc. 
Enfin, les programmes émetteur 
et récepteur se déconnectent au 
bout d'un temps maximum, ou 
d'un nombre donné de renvois 
sans succès. On peut donc lancer 
le transfert d'un gros fichier et 
vaquer à ses occupations en toute 
serénité, le programme ne 
“plantera” pas. En cas d'avarie, le 
récepteur est assuré d'avoir un 
fichier peut être partiel, mais 
validé et fermé correctement. 


XMODEM transmet sur 8 bits, ce 
qui autorise des échanges de 
fichiers ASCII ou binaires, et 
avec somme de contrôle, ce qui 
assure une bonne fiabilité de la 
transmission. 


Enfin, la mise en route de 
XMODEM émetteur et 
XMODEM récepteur est contrôlée 
par les programmes, qui doivent 
se rencontrer dans un délai d'une 
minute maximum. Ceci permet 
des transferts téléphoniques avec 
un équipement rustique, un 
simple Modem manuel est 
suffisant. Les correspondants 
peuvent s'appeler, se mettre 
d'accord, puis chacun lance son 
programmme de transmission et 
commute son Modem sur la 
ligne. Tous les signaux parasites, 
raccrochement de combinés et 
autres sont sans importance. 


Le nratacale 


Le format de la transmission est 8 
bits de données, 1 bit d'arrêt, pas 
de parité, vitesse quelconque. Les 
données entre émetteur et 
récepteur sont transmises Sous 
forme de blocs de 132 octets, le 
format des Blocs étant le suivant : 
° un octet d'en-tête, SOH 
(ASCII 1) ; 


* un octet donnant le numéro du 
bloc modulo 256. Le premier 
bloc est le numéro 1 ; 

* un octet donnant le complé- 
ment à 255 du numéro de bloc, 
pour vérification ; 

+ 128 octets de données, soit (au 
hasard ?) un secteur CP/M ; 

+ un octet “Checksum" qui est la 
somme sans retenue des 128 
octets de données. 


Le contrôle de transmission 
utilise les codes de contrôle 
suivants : 


+ EOT (ASCII 4) Fin de 
transmission ; 

° ACK (ASCII 6) Bloc reçu et 
correct ; 

+ NAK (ASCII 21) Refus du 
Bloc reçu, erreur ; 

+ CAN (ASCII 24) Annulation 
de la transmission. 


Déroulement de la 
transmission côté émetteur 


1) Attendre pendant une minute 
un des deux codes suivants : 
CAN abandonner 

NAK démarrer la transmission. 
Au bout d'une minute sans NAK, 
abandonner. 


Cec1 est la seconde 
partie d'un article 
sur la carte SSC et 
le CP/M. 
Cependant, le 
contenu de ce 
numéro (textes et 
programmes) est 
utilisable seul. 





2) Transmission. 

+ Envoyer un Bloc de 132 
octets. 

+ Attendre pendant 10 secondes 

maximum un des codes suivants : 

CAN abandonner 

AK correct, passer au Bloc 

suivant. 

NAK refusé, renvoyer le même 

bloc. 

Au bout de 10 secondes sans une 

de ces trois réponses, renvoyer le 

même bloc. 

Un Bloc mauvais n'est réémis 

que dix fois au maximum, après, 

on abandonne de la transmission. 


3) Fin du fichier. 

Le dernier Bloc doit comporter 
des Ctrl-Z de remplissage. Si ce 
n'était pas le cas (fichier de 
données multiple exact de 128) il 
faut renvoyer un Bloc complet de 
Ctrl-Z. 


Après envoi du dernier Bloc, 
l'émetteur envoie le code EOT, 
avec la même procédure que pour 
les envois de Blocs (10 essais 
maxi, 10 secondes maxi pour 
recevoir CAN, ACK ou NAK). 


Déroulement de la 
transmission côté récepteur 


1) Attendre quelque chose en 
provenance de l'émetteur, en 
envoyant NAK toutes les dix 
secondes, ceci pendant une 
minute maximum. 


Help ! 


Vous avez la disquette 
d'accompgnement : 

Utilisez un progranune du type 
Universal File Conversion pour 
transférer les fichier sur votre disquette 
CP/M puis tapez selon le cas : 
XMODR ou XMODE. 


Vous n'avez pas la disquette 
d'accompgnement : 

Saisissez les codes objet à l'aide de 
DDT, puis sauvegardez par 

SAVE 6 XMODR.COM 

et SAVE 5 XMODE.COM. 

Enfin exécutez l'une ou l'autre des 
corvrandes 





2) Réception de quelque chose : 


e C'est un bloc de 132 octets. 
Vérifier l'en-tête (SOH), et le 
Checksum. En cas d'erreur 
envoyer NAK. Si c'est correct, 
vérifier le numéro de bloc : 

- Bloc attendu, envoyer ACK. 

- Bloc précédent (l'émetteur n'a 


pas reçu le ACK 
correspondant), laisser passer 
et envoyer ACK. 


- Tout autre Bloc, le transfert 
est perdu, envoyer CAN et 
abandonner. 


+ _ C'est le code EOT. Envoyer 
ACK, fermer le fichier, 
terminé. 

+ Ce n'est ni l'un ni l'autre 

(bloc incomplet, ou “trou” dans la 

transmission), faire une “purge” 

de 5 secondes et envoyer NAK. 

En lecture, tout délai de plus 

d'une seconde entre deux 

caractères signifie un problème 
grave de ligne (même à basse 
vitesse, 300 bauds, cela fait au 
moins 30 caractères perdus). 

L'information sera de toutes 

façons dégradée, la purge de 5 

secondes sert à laisser l'émetteur 

finir l'envoi du bloc en cours. 


Remarque une fois la 
transmission commencée, le 
récepteur doit abandonner s'il 
reste plus de 10 secondes sans 
rien recevoir (l'émetteur faisant 
des renvois automatiques, cela 
indique une ligne complètement 
coupée). 

Lorsqu'on abandonne la 
transmission, il est recommandé 
d'envoyer un ou deux codes 
CAN, afin de libérer 
éventuellement l'émetteur. 


Le programme 


Le programme est en fait découpé 
en deux commandes CP/M, une 
pour l'émission, XMODE.COM 
et l'autre pour la réception, 
XMODR.COM. 

Ces deux programmes sont assez 
voisins, assurent la gestion du 
fichier à transmettre ou à 
recevoir, et le déroulement du 
protocole. 

La carte SSC est initialisée avec 8 
bits de données, 1 stop bit et pas 
de parité. La vitesse n'est pas 


modifiée. Il faudra la configurer 
au préalable, ou bien à l'aide des 
switches, ou bien grâce à un 
utilitaire de configuration 
(SETSSC.COM -voir n° 26- par 
exemple !). 

Pour lancer un envoi de fichier, 
on entrera la commande : 


XMODE Nomdufichier 
Pour lancer une réception : 
XMODR Nomdufichier 


I1 suffit que les deux programmes 
soient lancés dans la même 
minute, chaque programme 
commente l'état de la 
transmission en indiquant le 
numéro du bloc en cours, 
éventuellement le nombre de 
réémission d'un même bloc en 
cas de problème, et le résultat de 
l'envoi de Bloc (correct, erreur 
etc.) 

La gestion de la carte série est 
réduite au minimum puisqu'il n'y 
a aucun traitement des signaux de 
contrôle. Il suffit de tester l'état 
des registres émission ou 
réception. À noter que, comme 
pour SETSSC.COM, la routine 
de lecture du port série peut 
retourner au programme appelant 
un caractère frappé au clavier. 
Ceci donne donc un moyen 
éventuel d'interrompre une 
transmission en frappant un code 
CAN (Ctrl-X), si vous constatez, 
par exemple, que votre 
programme réémet constamment 
le même bloc, indiquant 
manifestement un problème chez 
votre vis-a-vis. 


La mise en œuvre est donc très 
simple, le choix de la vitesse 
dépendra des conditions 
d'utilisation : 
* en liaison locale par fil entre 
deux machines, la grande fiabilité 
de ce protocole autorise des 
transferts à la vitesse maximale de 
la carte SSC, 19200 bauds. Ceci 
ermet des échanges de fichiers 
importants avec une rapidité 
spectaculaire ; 
* en liaison téléphonique, cela 
dépendra évidemment du 
standard utilisé : 300 bauds pour 
Transpac V21, et 1200/75 pour 
V23. Sous XMODEM, le volume 
d'information échangé est de 132 
octets dans le sens émetteur vers 
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récepteur, pour 1 octet en sens 
inverse. La transmission en V23 
n'est donc intéressante que si 
c'est le programme d'émission 
qui utilise le canal 1200 bauds, 
les codes du programme 
récepteur revenant par le canal 75 
bauds. Ceci suppose donc 
l'utilisation d'un Modem 
répondeur (Mode 2). Si votre 
Modem ne comporte que le mode 
Appel, utilisez plutôt Transpac 
300 bauds, ce sera plus rapide. 


Enfin, dernière remarque, la carte 
SSC est monovitesse. Pour 
transmettre en V23, il vous 
faudra un Modem capable de 
symétriser ses entrées (celui du 
Minitel par exemple), ou la 
solution à deux cartes série, une 
émission, une réception. Ceci 
étant, XMODEM rend envisa- 
geable la technique consistant à 
utiliser un port monovitesse, en 
changeant la vitesse de 
transmission selon que l'on lit ou 
écrit, puisque les opérations de 
lecture et d'écriture sont 
altemées. Dans ce cas, il faut 
initialiser avec la vitesse de 
réception, reconfigurer l'ACIA en 
vitesse de transmission uni- 
quement au moment d'émettre, et 
repasser sur la vitesse de 
réception tout de suite après. 
ATTENTION, ne jamais changer 
la vitesse lorsque l'ACIA est en 
train de faire une conversion 


parallèle/série. [1 faudra écrire une 
routine d'émission qui charge le 
registre de sortie avec l'octet à 
émettre, et qui attende que ce 
registre soit vide (bit 4 du registre 
d'état) avant de modifier la 
vitesse. 


Aux CP/Mistes 
télémaniaques 


l faut mentionner ici un point qui 
sort du cadre de cet article, car 
utilisant un matériel trop 
spécifique, la Premium Softcard 
de Microsoft, équipement qui 
représente l'arme absolue pour 
l'inconditionnel de CP/M. 

Cette carte qui utilise le slot 3 
auxiliaire de l'Apple //e rassemble 
une carte 80 colonnes étendue et 
une carte Z80, avec toutefois une 
différence fondamentale avec la 
Softcard classique : elle utilise un 
Z80 B à 6 Mhz, et d'autre part les 
deux processeurs, 6502 et Z80, 
sont découplés et chacun 
fonctionne sur ses 64ko de RAM 
simultanément, alors que sur la 
Softcard traditionnelle, ils ne 
travaillent qu'à tour de rôle, sur 
les mêmes bus, en se mettant 
alternativement en DMA. Le 
programme d'application tourne 
sur le Z80 tandis que le 6502 joue 
le rôle d'un processeur 
d'entrées-sorties. 


En plus de l'implantation CP/M, 
Microsoft a donc développé un 
OS. particulier, le 65BIOS, qui 
est en gros une boucle d'attente, 
avec gestion des entrées-sorties 
de l'Apple, d'un buffer de clavier 
et dun buffer d'imprimante. 
L'auteur a réalisé une modifi- 
cation de ce 65BIOS qui permet 
de gérer quatre buffers : clavier, 
imprimante, réception RS232 et 
émission. Ce programme peut 
utiliser une ou deux cartes SSC 
(par exemple une réception 1200 
bauds et une émission 75 bauds, 
valeurs au hasard !). 


Ceci permet de créer des 
applications de transmissions très 
efficaces. La gestion de la 
transmission des données étant 
assurée par le 6502, en temps 
réel, on peut utiliser le Z80 pour 
faire tourner le programmme 
principal sans impératifs de 
rapidité (20Ko de buffer 
réception série), ce qui autorise 
l'utilisation de langages évolués 
(Turbo Pascal, Forth, Basic). A 
titre indicatif, un émulateur de 
terminal Minitel, compilé en 
Forth, occupe moins de 4Ko de 
mémoire, et avec une facilité de 
mise au point et de modifications 
très supérieure. 


Les CP/Mistes télémaniaques 
intéressés peuvent me contacter 
par l'intermédiaire de la revue. 





Source “XMODR. SOURCE’ selon Flag DEBUT 
TITLE XMODR ERMSE® 7” 
ÉRRRRR ES JP 
Réception de fichiers au protocole XMODEM 
à JPR 1986 es 


PRMSGI: 
JP 





(IY+5) 


0, (IY+#5) 


DE, MSG4 
0,(1Y+5) 
PRUSGI 
DE 


13,10 
‘Bad Commmnd Sie 

27,1%! 

mi su on ner Su mb nu opte M ‘ 
13,10 

? XMODEM  Downloading Utility" 


BOOT EQU CS 
BDOS EQU 5 PRCAR 
FCB EQU SCH JP 
BUFFER EQU 80H P 
;: Messages du programme 
PHASE 103H D ms 
JP START ; 
; MSG0: DB 
; Routines CP/M ASC 
Prat us MSG61 : DB 
; ASC 
: Affiche le message pointé Dar DE DB 
ES Ed ASC 
+ 2 points d'entrée, avec et sans saut de ligne DB 
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ASC ‘ JF-R 1986 


DB 13,10 ; Préparation 
ASC oœmemren--ss——s—…— C | Rniniseipiniss:s-s 
DB 13,10,13,10,'S" PREPAR: CALL CONF ACIA 
MSG2: ASC ‘Can''t open File’ LD IY, COMPT 
DB 13,10, 1$" LD A,1 
MSG3: ASC ‘Pronpting Sender $' LD {IY+3),A ;ler bloc 
MSG4: DB 13,10,13,10,'S" XOR À 
MSSS5: ASC * Recelived Bloc $' LD (IY+5),A ;début 
NUMBLOC: ASC TXXA Ok" LD {IY+4),A ;précédent 
DB 13,10,13,10,°$t ID À, 6 
MSG6: ASC L Header Error’ LD (IY+1),A ;Nb essais 
DB 13,10,'$" LD A,NAK 
MSG7: ASC L Checksum Error' LD {IY+6),A ;Code d'appel 
DB 13,10; "$! ; 
MSG8: ASC , Fatal Error' LD DE,REC_BUF+3 
DB 13,10;,."$" LD C,1AH ;Adresse DMA vers Buffer 
MSG9: ASC L Timeout ' CALL BDOS 
DB 13/10;,"$" LD DE,MSG3 
MSG 10: ASC - Disk Error" CALL PRMSGI 
DB 13;10,.2$' SET O,(IY+5) 
MSG14: ASC ; Got something, but ? ? 2? Lu 
DB 13,10, "$" + Envoi code d'appel 
: jm 
MSG1l: ASC * Received EOT' ENVOI : LD EE "ei! 
DB 13510,:4$" CALL PRCAR 
MSG12: DB 13,10 ENVOI l: LD À, T10 
LD {IY+0),A ;Attente 10 s 


ASC ‘File received successful?y" 


DB 23/10, "5" LD DE, REC _BUF ;Buffer d'arrivée 
MSG13: DB 13,10 LD B, BSIZE+4 

ASC ‘Transmission aborted' LD C,({IY+6) ;Caractère 

DB 13,10,'$S" CALL ECRITURE 
î ; 
? Constantes et variables du programme + Attente réponse 
D ES Em M ES M ES M CC em tenants 
: WAIT: CALL LECTURE ;Qique chose ? 
T10 EQU 10 ;Temporisation 10 s JR NC, RANGE 
T60 EQU 60 ;Temporisation 1 mm DEC (IY#0) ;J'attends encore ? 
MAXTRY EQU 10 Nombre d'essais maxi JR NZ, WAIT 
BSIZE EQOU 128 Taille Buffer DEC {IY+1) ;Un autre essai ? 


JR NZ, ENVOI 
LD DE,MSG9 ;Non, trop tard 
JP ANNULE 


; Caractères Ascii du protocole 


SOA EQU 1 

EOT EQU 4 : 

ACK EQU 6 ;: Boucle interne au Bufler 

NAK EQU 21 EE DST DES —— 

CAN EQU 24 WAIT1: CALL LECTURE 
SUB EQU 26 JR NC, RANGE 


Buffer incomplet 


; Table de variables, pointée par IY 
LD À, BSIZE+3 


COMPT: DS 1 ;Conpteur 
NESSAI: DS 1 ;Nb d'essais CP B ;1 car reçu ? 
FINI: ps 1 ;Flag fin JR NZ, PURGE 
NBLCC: Ds 1 ;:Bloc courant DEC DE 
PREBLOC: Ds 2 ;Bloc précedent LD À, (DE) 
DEBUT: DS 1 ;Flag départ CP EOT ;Fir de transmission ? 
CODE: LS 2: ;Code à envoyer JP Z,TERMINE ;Oui 
: ; Pb réception, on purge et on refuse 
REC_BUF: ps BSIZE+4 +Buffer de réception PURGE: LD B,5 

PAGE CALL SECONDE 
START EQU $ ‘Début programme LD DE,MSG14 


: JP REFUSE 


LD A, (BUFFER) ; 


OR A ;Nom de fichier ? +: Remplissage du Buffer de réception 
LD DE,MSGO RANGE: LD (DE) ,À 

JP Z,PRMSG1 :Non, retour CCP INC DE 

LD DE,MSGI DINZ WAITI 


CALL PRMSGi 


% 


LD C,15 >Ouverture fichier pme re ere 
LD DE, FCB LD DE,MSG5 
CALL  BDOS CALL PRMSG 
INC A ; Trouvé ? LD IX,REC_BUF 
JR NZ,PREFAR LD DE,MSG6 
’ LD À, SOH 
LD C,22 ;Création fichier CP (IX+0) ;Header correct ? 
LD DE,ECB JR NZ,REFUSE 
CALL BDOS LD A, (IX+2) 
INC A Correct ? CPL 
LD DE,MSG2 CP (IX+1) 
JP 2, PRMSGI Non, je sort JR NZ, REFUSE 
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cb (IY+4) :Bloc précédent ? 


JR Z, ACCEPTE 
LD  DE,MSG8 


CP {I1Y+3) Bloc attendu ? 


JR  NZ,ANNULE 


XOR A ;Init cheksum 
LD IX,REC_BUF+3 
LD B, BSIZE 
CALC_CHK: ADD A, (IX+0) 
INC IX 
DINZ CALC CHK 


ID DE,MSG7 
cP (IX +0) ;Chksum Ok 7? 
JR NZ, REFUSE 

: Ecriture sur Disque des données 


; 


LD Cy,21 

LD DE,FCB 

CALL BDOS 

OR A Problème ? 


LO DE,MSG10 
JR NZ, ANNULE ;Oui, on ferme 


” 


LD À, (IY+3) 

LD (IY+4) ,A 

INC (IY+3) Bloc suivant 
; Accepte le Bloc reçu 


‘ 


ACCEPTE: LD IX, NUMBLOC 


CALL CONVERS ;No de bloc en Ascii 


ED DE ,NUMBLOC 
LD A,ACK 


’ 


SUIVANT : LD (IY+6),A 
LD A,1 
LD (IY+1) ,A ;1 essai 
CALL PRMSG 
JP ENVOII Validation 


+ Refuse le Bloc reçu 
REFUSE: LD A, NAK 
JR SUIVANT 


; Annule la transmission 


ANNULE: CAILL PRMSG 
LD C,CAN 
CALL ECRITURE 
LD B,3 
CALL SECONDE 
CALL ECRITURE 
ID DE, MSG1 3 
JR CLOSE 
; Fin de transmission 








Glossaire 


Les messages en anglais simpliient les transmissions 
outre-manche et outre-océan maïs si la langue des 
Beatles vous échappe. 





Downloading 

Can? open file 
Prompting sender 
Received bloc 

Header error 
Checksum error 

Got something but ??? 
Received EOT 
Uploading 

Waiting for receiver 
Sending bloc 
Acknowledged 
Cancelied 

File sent successfully 
Transmission aborted 


Télérécept'on 

Ouverture fichier impossible 
Attente de l'émetteur 

Bloc reçu 

Erreur d'entête 

Erreur de somme de contrôle 
Bien reçu, mais qu'est-ce ? 
Code de fin de fichier reçu 
Téléchargement 

Attentte du récepteur 

Envoi bloc 

Compris 

Annulé 

Fichier bien transmis 
Transmission annulée 





Badcommand Erreur de commande 
NSLOT EQU 0E0AO0H ;Carte en slot 2 
DIPSW1 EQU  NSLOT+1 ‘Switches 1 
DIPSW2 EQU  NSLOT+2 ;Switches 2 
RDREG EQU  NSLOT+8 sRegistre lecture 
TDREG EQU  NSLOT+8 Registre écriture 
STATUS EQU  NSLOT+9 Registre d'état 
COMMA ND EQU NSLOT+0AH ;Registre de commande 


CONTROL EQU 


; 


; Clavier 
KBD EQU 0E000H 
KBDSTR EQU 


” 


Configuration de l'ACIA 


NSLOT+0BH ;Registre de controle 


0E010H 


;: 8 DATA, 1 STOP, sans Parité, Vitesse courante 


; Utilise À 


CONF_ACIA: LD A, (CONTROL) 


AND 0FH 
OR 10H 


:Récup. vitesse 
;Data et Stop 


LD (CONTROL) , À 


LD À, 9 


RTS, DTR, sans parité 


LD (COMHMAND) , À 


LD À, (RDREG) 


*Init RDR 


Routine de lecture du port RS232. 


TERMINE : LD  DE,MSGIl 
CALL  PRMSG 
LD C,ACK 
CALL ECRITURE 
LD  DE,MSGI2 











Retour avec caractère dans À et Carry à 9, 

ou retour au bout d'une seconde avec Carry à 1. 
Si frappe Clavier, retour avec car, claVier. 
Utilise À, HL, IX 


ee ve 


nu 













CLOSE: CALL  PRMSG LECTURE : EG HL/,STATUS 
LD C,16 ;Ferme le fichier BIT 3, (HL) ;RDR plein ? 
LD DE,FCB JR NZ, LECT2 
CALL BDOS LD IX, TEMPO 
Ô 
LD DE, BUFFER XOR A 
LD C,1AH LD (IX+0),A 
JP BDOS LD A,98 
î LD (IX+1),A 
PAGE LECTI: BIT 3,(HL) 
+: Routines de service JR NZ, LECT2 
j === LD A, (KBD) 
; OR A 
; Adresses du port RS232 JP M,LECT3 
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TS TE A 


M rs Source ‘XMODE.SOURCE’ 


DEC (IX4+1) 











JR NZ,LECTI1 TITLE XMODE 
SCF =ssss=ss=2ze2=s==22= 
RET 
LECT2: DEC BL ;Adresse RDR ? Emission de fichiers au protocole XMODEM 
LD A, {HL) ; 
OR A ? JE-R 1986 
RET $ 
LECT3: LD (&BDSTR), À na 
AND 7FH ; 
RET : Adresses CP/M 
+ Routine d'écriture du port RS232 BOOT EQU 0 
LApmtpontsssntnontecesnncncnn tombent us rase BDOS EQU 5 
* Ecrit le contenu de C. FCB EQU  5CH 
+ Utilise C et HAL BUFFER EQU 80H 
ECRITURE: LD HL,STATUS - PHASE 103H 
ECRII: BIT 4, (HL) /TDR vide 7 JP START 


JR Z, ECRII 
DEC BL sAdresse RDR 
LD (BL),C 


Routines CP/M 


Affiche le message pointé par DE 


u 
‘ 


Boucle d'attente, nb de secondes dans B 


f.-=cmmmmmanmmetensememersnesmnte pisse PRASG: LD c, 3 
+ Utilise À et IX JP BDOS 
SECONDE : LD IX,TEMPO : Affiche le caractère dans E 
SECON 1: XOR À Es a ad 
LD (IX+0),A PRCAR: ED C;2 
LD A,228 ;init. temporisation JP BDOS 
LD (IX+1),A ? 
SECON2: DEC (IX +0) + Messages du programme 
JR NZ, SECON2 5 mme 
DEC (IX+1) ; 
JR NZ, SECON2 MSG0: DB 13,70 
DONZ  SECONI1 ASC ‘Bad Command.,,5$" 
RET MSGl: DB  27,1*! 
; ASC tm. , 
TEMPO: DS 4 ;conpteur DB 13,10 
; ASC * XMODEM  Uploading Utility" 
/ Conversion en Ascii du contenu de À DB 13,10 
F rrcmenmmampnenemememmmssemmmessssr ASC  JE=R 1986 
; Range à (IX), sur 3 octets. DB 13,10 
: Utilise À, IX, DE, BL ASC a ' 
; DB 13,10,13,10, *S" 
CONVERS: LD L,A MSG2: ASC ICan''t open File’ 
LD H,0 DB 13#1040$) 
ID DE,100 MSG3: ASC ‘Waiting for receiver.' 
CALL CONVERI DB 13;10},13,10, "$" 
LD DE, 10 DS 1 
CALL CONVERI MSGä4 : ASC ‘xx Sending Bloc 
LD À, 30H NUMBLOC : ASC "xxx $" 
IR £ DS 1 
LD (IX+0),A MSGS5: ASC ‘xx Sending EOT 
LD A, (IX+0FER) ASC ' $' 
CP 30H 70? ; 
RET  N£ MSG6: ASC t‘Acknowledge d' 
LD A,20H ;on met un Blanc DB 1310/1075" 
LD (IX+0FEH), À MSG7: ASC ‘Non Acknowledged' 
LD A, (IX+0FFH) DB 13,10,'$" 
cp 30H MSG8: ASC ‘Cancelled' 
RET NZ DB 19710557 
LD A,20H MSG9: ASC ‘Timeout' 
LD (IX+0FFH), À DB 13,10,'S" 
RET ; 
CONVER1: XOR A MSG10: DB 13,10 
CONVER2: SBC  HL,DE ASC "File sent successful1y" 
JR C, CONVER3 DB 13,10,.4%$" 
INC À MSG11: DB 13,10 
JR CONVER2 ASC ‘Transmission aborted' 
CONVER3: ADD  HL,DE DB 13:10; JS: 
OR 30H : 
LD (IX+0),A +: Constantes et variables du programme 
INC IX JO CRRRESSRDU SR ASS ANNE MEMMMNME ESS ESS 
RET ; 
; T10 EQU 10 > Terporisation 10 s 
END T60 EQU 60 :Temporisation 1 "mn 
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MAXTRY EQU 10 sNonbre d'essais maxi 
BSIZE EQU 128 :Taille Buffer 


; Caractères Ascii du protocole 


SOH EQU I 
EOT EQU 4 
ACK EQU 6 
NAK EQU 21 
CAN EQU 24 
SUB EQU 26 


; Table de variables, pointée par IY 


COMPT: DS 1 ;Conÿteur 

NESSAI : DS 1 ;Nb d'essais 

FINI: DS 1 :Flag fin 

NBLOC: DS 1 -Bloc courant 
PAGE 

START EQU $ ;Début progranme 


n 


LD À, (BUFFER) 


OR A :Nom de fichier ? 
LD DE,MSGO 

JP Z,PRMSG :Non, retour CCP 
LD DE, MSG1 :En-tete 
CALL PRMSG 

LD C,15 ;Ouverture fichier 
LD DE,FCB 

CALL BDOS 

INC A ;Fichier trouvé 7 
LD DE,MSG2 

JP Z,ABORT :Non, erreur, 


; Préparation 
CALL CONF_ACIA 
LD IY, COMT 


XOR À 

LD (IY+2),A ;Pas fini 
INC À 

LD (IY+3),A ;Bloc 1 
LD A, T60 

LD (IY+0),A ;1 minute 
LD DE,MSG3 

CALL PRMSG 


Attente récepteur 


WAIT_REC: CALL LECTURE Caractère ? 
JR NC, WAIT2 
WAIT1: DEC (IY+0) ;J'attends encore ? 
JR NZ, WAIT_REC 
LD DE, MSG9 : Tenps maxi 
JP ABORT 
WAIT2: LD DE, MSG8 


CP CAN ; Cancel ? 
JP Z, ABORT 
CP NAK 
JR NZ, WAIT1 
‘ Lire un Buffer 


i 


RDBUF EQU $ 
LD C,20 
LD DE,FCB 
CALL BDOS 
OR A ;Fin de fichier ? 
JR 2, ENVOI Non, envoi du Bloc 


SET Q, (IY+2) ;Fini 
LD IX, BUFFER+BSIZE-1 
LD A, SUB ;Fin du bloc 
cP (IX+0) 2? = Ctrl-Z ? 
JR Z, ENVOI 
;: Renvoyer un bloc plein de Ctrl-Z 
LD IX, BUFFER 
LD B,BSIZE 
RDBUF1: LD (IX+0),A 
INC IX 
DJNZ  RDBUF1 


RES 0,(IY+2) ;Pas fini 
+: Envoi du Bloc 


ENVOI: LD A,MAXTRY ;10 essais max 
LD (IY+1),A 


ENVOI1: LD By (1Y+1) 
LD A,MBXTRY+1 
SUB B :No de l'essai en cours 


BIT 0,(IY+2) ;Fini ? 
JR Z,ENVOIZ2 ;Non, sortie du Bloc 


LD IX,MSG5-1 

CALL CONVERS No essai en Ascii 
LD DE,MSGS 

CALL PRMSG 

LD C,EOT 

CALL ECRITURE 

JR VALID 


ENVOI2: LD IX, MSG4-1 
CALL CONVERS ;No essai 
LD A, (IY+3) ;No Bloc 
LD IX, NUMBLOC 
CALL CONVERS 
LD DE,MSG4 
CALL PRMSG 


LD C,SOH ;Header 
CALL ECRITURE 

LD A, (IY+3) 

LD C,A ;No Bloc 
CALL ECRITURE 


LD C,A ;255-No Bloc 
CALL ECRITURE 


XOR A ;Init Checksum 
LD IX, BUFFER 
LD B,BSIZE 

ENV_BCL: LD C, (IX+0) ;Caractère 
ADD A,C 
INC IX 


CALL ECRITURE 
DINZ ENV BCL 
LD C,A :Checksum 
CALL ECRITURE 
+: Attente validation 


VALID: LD A,T10 :T max 
ZD (IY+0),A 
VALIDI1: CALL LECTURE Réponse ? 
JR NC, VALID4 ;Oui 
VALID2: DEC (IY+0) ;J'attends encore ? 


JR NZ, VALIDI ;Oui 
LD DE,MSG9 
CALL PRMSG 


Si pas de réponse, on renvoi le Bloc actuel 
VALID3: DEC {IY+1) Enccre un essai ? 
UR N2Z,ENVOII ;Oui, renvoi du Bloc 
JP ABORT1 
+ Test du code reçu 
VALID4: cP CAN 
JR NZ, VALIDS5 
LD DE, MSG8 
JR 
JR 


Qi 


ABORT 

cp NAK 

NZ, VALID6 
LD DE,MSG7 
CALL PRMSG 
JR 
JR 


VALID5: 


VALID3 
cp ACK 
NZ,VALID2 
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LD DE,M5G6 

PRMSG 

0,4{1232) :Fini ? 
JR NZ, TERMINE 
INC (IY+3) 

JP RDBUF 


:Bloc suivant 


Fin de transmission 


TERMINE : LD DE, MSG10 

JP PRMSG ;Message et retour CCP 
ABORT: CALL PRMSG 
ABORT1 : LD DE, SG11 

JP PRMSG 

PAGE 


; Routines de service 


u 
;J mannnmmnnmam en ee 
‘ 


? Adresses du port RS232 


NSLOT EQU OEOACA ;Caite en slot 2 

DIPSW1 EQU NSLOT+1 sSwitches 1 

DIPSW2 EQU NSLOT+2 ;Switches 2 

RDREG EQU  NSLOT+8 ;Registre lecture 

TDREG EQU  NSLOT+8 “Registre écriture 

STATUS EQU NSLOT+9 sRegistre d'état 
CCMMAND EQU  NSLOT+0AH ;Registre de commande 
CONTROL EQU  NSLOT+0BH ;Registre de controle 
: Clavier 

KBD EQU 0E000H 

KBDSTR EQU 0E010H 


Configuration de l'ACIA 


DATA, 1 STOP, 


8 sans Parité, Vitesse courante 
Utilise À 


n 
i 
‘ 
; 


CONF_ACIA: LD A, (CONTROL) 


AND O0FH sRécup. vitesse 

OR 10H Data et Stop 

LD (CONTROL) , À 

LD A,9 RTS, DTR, sans parité 
LD (COMMAND)} , À 

LD A, (RCREG) ;Init RDR 

RET 


+ Retour avec caractère dans À et Carry à 0, 

; ou retour au bout d'une seconde avec Carry à 1, 
+ Si frappe Clavier, retour avec car. clavier. 
;: Utilise À, HL, IX 


LECTURE: LD HL,STATUS 
BIT 3, (HL) 
JR NZ, LECT2 
LD IX, TEMPO 


;RDR plein ? 


XOR A 
LO (IX+0),A 
LD A, 98 
LD (IX+1),A 
LECTI: BIT 3, (HL) 
JR NZ, LECT2 
LD A, (KBD) 
OR À 
JP M, LECT3 
DEC {IX+0) 
JR NZ, LECTI1 
DEC {(IX+1) 
JR NZ, LECT1 
SCF 
RET 
LECT2: DEC HL ;Adresse RDR 
LO À, (HL) 
OR A 
RET 
LECT3: LD (KBDSTR) , À 
AND 7FH 


RET 


Routine d'écriture du port RS232 


Ecrit le contenu de C. 
Utilise C et HL 


Léo de LS 


ECRITURE: LD HL, STATUS 
ECRII: BIT 4, (HL) TDR vide 
JR Z,ECRI1 
DEC HL ;Adresse RDR 
LD (AL) ,C 
RET 


* Boucle d'attente, nb de secondes dans B 


+ Utilise À et IX 


‘ 


SECONDE “ LD 


IX, TEMPO 

SECONI1: XOR A 

LD {IX+0),2A 

LD A,228 ;init. temporisation 

LD (IX+1),A 
SECON?2 : DEC (IX+0) 

JR NZ, SECON2 

DEC (IX+1) 

JR NZ, SECON2 

DINZ  SECONI 

RET 
TEMPO: DS 2 ;compteur 


+? Range à {IX}, sur 3 octets. 
: Utilise À, IX, DE, HL 


CONVERS: LD L,A 
LD H,0 
LD DE, 100 
CALL CONVERI 
LD DE, 10 
CALL CONVERI 
LD A,30H 
OR L 
LD (IX+0),A 
LD À, (IX+0FEH) 
CP 30H SD 2 
RET NZ 
LD A,20H ;on met un Blanc 
LD (IX+0FEH),A 
LD À, (IX+0FFH) 
CP 30H 
RET NZ 
LD A,20H 
LD (IX+0FFH),A 
RET 
CONVERI1: XOR A 
CONVER2: SBC HL,DE 
UR C, CONVER3 
INC A 
JR CONVER2 
CONVER3: ADD HL, DE 
OR 30H 
LD (IX+0),A 
INC IX 
RET 
ÆEND 


? 





0100 00 00 00 C3 6D 02 0E 09 C3 05 00 OE 02 
0110 0D 0A 42 61 64 20 43 6F 6D 6D 61 6E 64 
0120 24 1B 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 
0130 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 
0140 20 58 4D 4F 44 45 4D 20 20 20 55 70 6C 
0150 69 6E 67 20 55 74 69 6C 69 74 79 OD OA 
0160 2D 52 20 20 20 20 20 20 20 20 20 20 20 
0170 20 20 20 20 31 39 38 36 OD OA 20 2D 2D 
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ca 
2E 
2D 
2D 
6F 
20 
20 
2D 


05 
2E 
2D 
0D 
61 
4A 
20 
2D 


00 
2E 
2D 
OA 
64 
46 
20 
2D 





0180 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


0190 2D 2D 2D 2D 2D OD OA OD 0A 24 43 61 6E 27 74 20 0310 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
01A0 6F 70 65 6E 20 46 69 6C 65 0D OA 24 57 61 69 74 0320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
01B0 69 6E 67 20 66 6F 72 20 72 65 63 65 69 76 65 72 0330 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
01C0 2E O0D OA OD 0A 24 ES 78 78 20 20 53 65 6E 64 69 0340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
01D0 6E 67 20 42 6C 6F 63 20 78 78 78 20 20 20 20 20 0350 00 00 00 00 00 00 00 00 3A 80 00 B7 1 25 01 CA 
01E0 24 E5 78 78 20 20 53 65 6E 64 69 6E 67 20 45 4F 0360 1B 01 11 36 01 CD 1B 01 0E OF 11 5C 00 CD 05 00 
01F0 54 20 20 20 20 20 20 20 20 20 20 24 41 63 6B 6E 0370 3C 20 OF 0E 16 11 5C 00 CD 05 00 3C 11 B7 01 CA 
0200 6F 77 6C 65 64 67 65 64 OD OA OA 24 4E 6F 6E 20 0380 1B 01 CD A6 04 FD 21 CD 02 3E 01 FD 77 03 AF FD 
0210 41 63 6B 6E 6F 77 6C 65 64 67 65 64 OD OA 24 43 0390 77 05 FD 77 04 3E 06 FD 77 01 3 15 FD 77 06 11 
0220 61 6E 63 65 6C 6C 65 64 O0D OA 24 54 69 6D 65 6F 03A0 D7 02 0E 1A CD 05 00 11 C9 01 CD 18 01 FDCB 05 
0230 75 74 O0D 0A 24 OD OA 46 69 6C 65 20 73 65 6E 74 03B0 C6 1E 2E CD 20 01 3E OA FD 77 00 11 D4 02 06 84 
0240 20 73 75 63 63 65 73 73 66 75 6C 6C 79 OD OA 24 03c0 FD 4E 06 CD EE 04 CD B9 04 30 2C FD 35 00 20 F6 
0250 0D 0A 54 72 61 6E 73 6D 69 73 73 69 6F 6E 20 61 03D0 FD 35 01 20 DC 11 41 02 C3 70 04 CD 89 04 30 17 
0260 62 6F 72 74 65 64 OD CA 24 ES E5 E5 E5 3A 80 00 03E0 3E 83 B8 20 07 1B 1A FE 04 CA 85 04 06 05 CD F8 
0270 B7 11 10 01 CA 06 01 11 21 0i CD 06 01 0E OF 11 03F0 04 11 66 02 C3 6C 04 12 13 10 EO 11 EO 01 CD 06 
0280 5C 00 CD 05 00 3C 11 9A 01 CA 9E 03 CD A7 03 FD 0400 01 DD 21 D4 02 11 FE 01 3E 01 DD BE 00 20 5D DD 
0290 21 69 02 AF FD 77 02 3C FD 77 03 3E 3C FD 77 00 0410 7E 02 2F DD BE 01 20 54 FD BE 04 28 35 11 2C 02 
02A0 11 AC 01 CD 06 01 CD BA 03 30 O0B FD 35 00 20 F6 0420 FD BE 03 20 4B AF DD 21 D7 02 06 80 DD 86 00 DD 
02B0 11 2B 02 C3 9E 03 11 1F 02 FE 18 CA 9E 03 FE 15 0430 23 10 F9 11 14 02 DD BE 00 20 31 0£ 15 11 5C 00 
02c0 20 E9 0E 14 11 5C 00 CD 05 00 B7 28 20 FD CB 02 0440 CD 05 00 B7 11 52 02 20 27 FD 7E 03 FD 77 04 FD 
02D0 cé DD 21 FF 00 3E 1A DD BE 00 28 11 DD 21 80 00 0450 34 03 DD 21 FO 01 CD 14 05 11 F0 01 3E 06 FD 77 
02E0 06 80 DD 77 00 DD 23 10 F9 FD CB 02 86 3E OA FD 0460 06 3E 01 FD 77 01 CD 06 01 C3 B6 03 3E 15 18 EE 
02F0 77 01 FD 46 01 3% O0B % FD CB O2 46 28 14 DD 21 0470 CD 06 01 CE 18 CD EE 04 06 03 CD F8 04 CD EE 04 
0300 El 01 CD 15 04 11 E2 01 CD 06 01 CE 04 CD EF 03 0480 11 B4 02 18 OE 11 85 02 CD 06 01 0E 06 CD EE 04 
0310 18 3E DD 21 C6 01 CD 15 04 FD 7E 03 DD 21 D8 01 0490 11 95 02 CD 06 01 0E 10 11 5C 00 CD 05 00 11 80 
0320 CD 15 04 11 C7 01 CD 06 01 0 01 CD EF 03 FD 7E 04A0 00 OE 1A C3 05 00 3A AB E0 E6 OF F6 10 32 AB EQ 
0330 03 4F CD EF 03 2F 4F CD EF 03 AF DD 21 80 00 06 04B0 3E 09 32 AA E0 3A A8 E0 C9 21 A9 E0 CB SE 20 24 
0340 80 DD 4E 00 81 DD 23 CD EF 03 10 F5 4F CD EF 03 04C0 DD 21 12 05 AF DD 77 00 3E 62 DD 77 01 CB SE 20 
0350 3E OA FD 77 00 CD BA 03 30 13 FD 35 00 20 F6 11 04D0 13 3A 00 E0 B7 FA E8 04 DD 35 00 20 FO DD 35 01 
0360 2B 02 CD 06 01 FD 35 01 20 88 C3 A1 03 FE 18 20 04E0 20 EB 37 C9 2B 7E B7 C9 32 10 EO E6 7F C9 21 A9 
0370 05 11 1F 02 18 28 FE 15 20 08 11 OC 02 CD 06 01 04F0 EO0 CB 66 28 FC 2B 71 C9 DD 21 12 05 AF DD 77 00 
0380 18 E3 FE 06 20 D4 11 FC 01 CD 06 01 FD CB 02 46 0500 3E E4 DD 77 01 DD 35 00 20 FB DD 35 01 20 F6 10 
0390 20 06 FD 34 03 C3 C2 02 11 35 02 C3 06 01 CD 06 0510 EB C9 CD 96 6F 26 00 11 64 00 CD 40 05 11 OA 00 
03A0 01 11 50 02 C3 06 01 3A AB E0 E6 OF F6 10 32 AB 0520 CD 40 05 3E 30 B5 DD 77 00 DD 7E FE FE 30 C0 3E 
0380 EO0 3E 09 32 AA EO0 3A A8 EO C9 21 A9 EO0 CB 5E 20 0530 20 DD 77 FE DD 7E FF FE 30 CO 3E 20 DD 77 FF C9 
03C0 24 DD 21 13 04 AF DD 77 00 3E 62 DD 77 01 CB 5E 0540 AF ED 52 38 03 3C 18 F9 19 F6 30 DD 77 00 DD 23 
03D0 20 13 3A 00 EO0 B7 FA E9 03 DD 35 00 20 F0 DD 35 0550 C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


03E0 01 20 EB 37 C9 2B 7E B7 C9 32 10 E0 E6 7F C9 21 
03F0 A9 E0 CB 66 28 FC 2B 71 C9 DD 21 13 04 AF DD 77 
0400 00 3E E4 DD 77 01 DD 35 00 20 FB DD 35 01 20 F6 
0410 10 EB C9 3E FF 6F 26 00 11 64 00 CD 41 04 11 OA 
0420 00 CD 41 04 3E 30 B5 DD 7? 00 DD 7E FE FE 30 C0 


L] 
0430 3E 20 DD 77 FE DD 7E FF FE 30 C0 3E 20 DD 77 FF 12 fonctions de base, 
0440 C9 AF ED 52 38 03 3C 18 F9 19 F6 30 DD 77 00 DD . 
0450 23 C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 200 disques, 


Dump hexadécimal de XMODR.COM 500 programmes. 


0100 00 00 00 C3 58 03 FD CB 05 46 0E 09 CA 05 00 D5 RS 
0110 11 DB 01 FD CB 05 86 CD 1B 01 D1 0E 09 C3 05 00 DOS 3.3 
0120 0E 02 C3 05 00 O0D OA 42 61 64 20 43 6F 6D 6D 61 
0130 6E 64 2E 2E 2E 24 1B 2A 20 2D 2D 2D 2D 2D 2D 2D 
0140 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 

0150 2D 2D 2D 2D 2D 0D 0A 20 58 4D 4F 44 45 4D 20 20 TRIDOS 
0160 20 44 6F 77 6E 6C 6F 61 64 69 6E 67 20 55 74 69 
0170 6C 69 74 79 OD OA 20 4A 46 2D 52 20 20 20 20 20 
0180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 
0190 39 38 36 0D 0A 20 2D 2D 2D 28 2D 2D 2D 2D 2D 2D 
01A0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 
01B0 2D 2D 0D OA O0D 0A 24 43 61 6E 27 74 20 6F 70 65 
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01C0 6E 20 46 69 6C 65 OD OA 24 50 72 6F 6D 70 74 69 Capture le catalogue, 

01D0 6E 67 20 53 65 6E 64 65 72 20 24 OD OA OD OA 24 A 

01E0 20 52 65 63 65 69 76 65 64 20 42 6C 6F 63 20 24 Imprime, 

01F0 78 78 78 20 20 20 20 4F 6B 0» OA OD CA 24 20 20 Archive 

0200 20 20 20 20 20 48 65 61 64 65 72 20 45 72 72 6F 9 

0210 72 0D OA 24 20 20 20 2 20 2 20 43 68 65 63 6B 

0220 73 75 6D 20 45 72 72 6F 72 OD OA 24 20 20 20 20 Retrouve les programmes de vos 
0230 20 20 20 46 61 74 61 6C 20 45 72 72 6F 72 OD 0A disquettes des trois DOS 


0240 24 20 20 20 20 20 20 20 54 69 6D 65 6F 75 74 0D 
0250 0A 24 20 20 20 20 20 20 20 44 69 73 6B 20 45 72 
0260 72 6F 72 0D OA 24 20 20 20 20 47 6F 74 20 73 6F 
0270 6D 65 74 68 69 6E 67 2C 20 62 75 74 20 3F 20 3F 


180,00 F franco France métropolitaine 


0280 20 3F OD OA 24 20 52 65 63 65 69 76 65 64 20 45 
0290 4F 54 OD OA 24 OD OA 46 69 6C 65 20 72 65 63 65 Badaroux ( A 
02A0 69 76 65 64 20 73 75 63 63 65 73 73 66 75 6C 6C . Le 


02B0 79 OD OA 24 OD OA 54 72 61 6E 73 6D 69 73 73 69 144, rue Legendre e 75017 Paris 


02C0 6F 6E 20 61 62 

02D0 00 00 00 00 00 00 00 00 00 © 00 00 00 00 00 
00 
00 


Tél. : (1) 47 57 91 11 


S 838 


02E0 00 00 00 00 


02F0 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 
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Word est une marque déposée par Microsoft. Writer Plus est une marque déposée par AC. 


Cette fois Gutenberg n 






Gutenberg et ses associés, des gens 
très perfectionnistes au demeurant, 
n'hésitant pas à regarder à la loupe le 
moindre détail, n'avaient pourtant 
fait que la moitié du travail. 

Le pouvoir de l'édition c’est bien, 
pouvoir éditer soi-même, c'est mieux. 


C'est d'ailleurs le seul moyen de 
pouvoir parvenir àla vraie liberté d’ex- 
pression. Cela Gutenberg n'y avait pas 
songé. 

En toute bonne foi, il croyait fer- 
mement dans les vertus de la vis à 
bois et d’une imprimerie pour tout le 
monde. 


Chez Apple, nous croyons aux res- 
sources de l'individu et à l'édition 
personnelle. 

Par contre pour créer son atelier, 
Macintosh a fait comme Gutenberg, il 
s'est associé avec la “Laser Writer” 
l'imprimante à laser d'Apple. A la 
seule différence que si 31 assistants 
se bousculent autour d’une presse, 

31 Macintosh reliés par AppleTalk se 
partagent aisément une Laser Writer. 


Mais, malgré son million d'octets de 
mémoire morte (extension Laser Writer 
Plus) et sa résolution de 130 points/cm, 
la Laser Writer ne serait qu'une version 





Gutenberg 1395-1468 
a inventé l'imprimerte. 


légèrement améliorée de la presse en 
bois sans la puissance et les capacités 
graphiques de Macintosh Plus. 


2 \ 
ES \ 
HE \ 


Apple Cemputer France. Aves #5 





aura pas le dernier mot. 


C'est-à-dire, un méga-octet de 
mémoire extensible à 4 méga-octets, 
un nouveau lecteur de disque interne 
double face 800K et en option un dis- 
que dur de 20 méga-octets, ce qui 
permet de stocker des milliers de 
pages de documents. 

Et comme toujours, Macintosh Plus 
met à votre disposition tous ses fameux 
ou&ls de bureau, pour couper, coller, 
remodeler le texte, choisir les carac- 
tères, mélanger texte et dessin, etc. 





Au commencement de l'édition, 
il y a l'écriture : avec des logiciels de 
traitement de texte comme MacWrite, 
Word ou Writer Plus, le vrai problème 
des auteurs c'est l'inspiration. 


Page Maker 


Le texte si brillant soit-il ne suffit 
pas. Avec MacPaint et MacDraw pour 
illustrer, tracer des schémas et des 
dessins techniques, définir des cadres, 
avec un logiciel comme Page Maker 
pour organiser et metire en page, vos 
rapports d'entreprise, vos formulaires, 
vos manuels, votre journal interne, 
pour ne citer qu'eux, laisseront de vous 
une excellente impression. Et vous 
pourrez toujours tout modifer, y 
compris à la dernière minute! 


MacDrau 


MacWrte 





Pour Apple, il n'y a pas de petits 
et de grands écrivains, de littérature 
de bureau et de littérature tout court : 
tout le mondeest logé à la même 
enseigne, celle de la qualité. 

Avec la Laser Writer, une impression 
impeccable est à la portée de tous. 
Elle vous propose en effet onze 
familles de typographies (extension 
LaserWriter Plus), imprime sur papier, 
sur calque ou sur transparents et 
fournit des documents de qualité 
bromure. 


LaserWriter 


Et si vous voulez vraiment faire 
les choses en grand, Macintosh peut 
aussi se connecter directement à une 
photocomposeuse d'imprimerie. 


En fai, Apple ne vous offre rien 
de plus que votre imprimeur, sauf 
que vous n'aurez pratiquement plus 
besoin de lui. 

Désormais, c'est vous, l'éditeur, 
qui éprouverez la sensation de 
Gutenberg il y a 436 ans lorsqu'il 
contempla son premier document. 

C'est ainsi qu'Apple vous offre le 
meilleur de vous-même. 





ZA. de Courtabœuf, BP 131, 91944 Les Ulis Cedex. 





Macintosh est une marque sous licence chez Apple Cempuier Inc. Apple. Le Lago Apple. LaserWriter Apple Talk. MacWrite et Macbraw seat des marques déposées d'Apple Computer, Inc, Page Maker est une marque déposée d'Aldus Corps 
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Vous avez. sans doute remarqué que, 
lorsqu'une application ouvre un nou- 
veau document, son format d'impres- 
sion initial est rarement celui souhaité 
(il s'agit généralement du format ‘Lettre 
américaine’). Ayant souvent oublié de 
choisir immédiatement le format A4, 
nous avons parfois dû refaire totalement 
la mise en page d'un texte, le format 
‘Lettre américaine’ étant plus court que 
le format ‘Lettre Ad. 


Nous avons donc décidé de nous attaquer 
au problème, avec l'aide de MacsBug et 
REdit. La solution en fin de compte est 
assez simple : 


* dans le document ImageWriter (ou 
Laser Writer) se trouvent trois res- 
sources de type ‘PREC’. Deux d'entre- 
elles ont la même longueur que le 
‘Print Record’ utilisé par la plupart des 
routines du ‘Printing Manager’ (la troi- 
sième contient les dimensions et noms 
des différents formats de papier) ; 
* la ressource numéro 1 contient le 
“Print Record’ utilisé pour afficher le 
dialog du ‘Job’, c'est-à-dire la qualité 
d'impression. etc. Celui-ci ne pose pas 


MISE EN PAGE 


GEORGES ZWINGELSTEIN 


imagelUrniter v23 Cox) 


Papier: Lettre US © Format A4 


OLégal us © Format B5 


© Papier informetique 


Grientation Effets spéciaux : [] Portrait ajusté 
[] Réduction 56 % 
[] Pas de saut de page 


LaserWriter mm 
Papier : O Lettre américaine © Format A4 Réduire Cook ) 


© Légal americain OFormatBS5 ou CA 
Agrandir 


© Substituer les caractères 7 C]Finition ? 


ÿrientation: ©Portroit O Paysage 





de problème puisqu'il est enregistré à La mini-application proposée ici ne fait 

chaque utilisation ; que charger cette ressource, s'en servir 

+ la ressource numéro 0 contient le Pour afficher le dialogue du style et 
‘Print Record’ qui nous intéresse : enfin enregistrer le résultat, modifié par 

celui du dialogue du style (Format les sélections dans le dialogue, en 

d'impression, orientation, etc.) qui, lui, remplaçant l'ancienne ressource. 

n'est pas modifié mais est utilisé par C 

l'application afin de connaître 1a taille 

d'une page dans Je nouveau document. 





Source Mep.Asn 


pitéénsesnnnanmes sannnnnènetétérètéeté 


: Modifie là ressource contenant la 
: mise en Page par défaut 

(Format du papier, orientation 
r'etcs) 


;: 19/9/86 


î 


Include PrEqu.Txt 


.TRAP _InitGraf $SA86E 
. TRAP _InitFonts SAS8FE 
-TRAP FlushEvent s SA032 
.TRAP Initwindows $A912 
-TRAP InitMenvs SA930 
-TRAP ._InitDialogs SA978 
-TRAP _TEInit SA9ICC 
-TRAP _InitCursor SABSC 
.TRAP _GetResource $A9AOQ 
-TRAP _HNoPurge Sao4a 
-TRAP _ChangedResource $SAJAA 
.TRAP _WriteResource SA9B0 
. TRAP _HPurge $A049 
-TRAP _GetNewDialog $A97C 
-TRAP _DisposDialog SA983 
. TRAP _GetDltem SA980 
.TRAP _SetDitem S$A98E 
.TRAP _Pen$ite SA698 
-TRAP _InsetRect SAGA9 
.TRAP FrameRoundRect SA8B0 


-TRAP _ShowWindow $A915 _InitFonts 
.TRAP _MedalDialog $A991 MOVE.L #S0000FFFF,D8 
.TRAP _ResError $A9AEF _FlushEvents 
-TRAP _HLock SA029 _InitWindows 
.TRAP _HUnLock SAOZA InitMenus 
.TRAP _ParamText SA98B €LRL -(SP) 
-TRAP _Stopâlert SA986 _InitDialogs 
-TRAP _Pack? SA9EE _TEInit 
_TnitCursor 
; Constantes RTS 
okButton EQU 1 
numTostring EQU Le) rs Dialogue ===" xs 
: Affiche le dialogue de Numéro 
: Macro : DialogID et retourne vrai s! Bouton 
-MACRO FackCall + "OK' Choisi, faux sinon. 
MOVE. 31,-(5P) : Le Bouton 'OK' dcit être le premier 
t2 ; dans la définition du dialoque. 
ÉNDM * I1 doit y avoir un Userlteim en 3ième 
. MACRO _NumoString : positlon. 
PackCall fNumToString,_ Pack? 
TENDM ;Variables dans la pile : 
:DialogIiD EQU 8 
À PIED Re en nr ee mernnn anne sitemhit EQU 10 
Start : Variables locales : 
BSR InitManagers :DlalogPtr QU -à 
CLR.B  -(SP) | Type EQU 6 
MOVE #128,-{SP) :Iten EQU -10 
JSR Dialog s5box EQU -18 
MOVE .B {SP)+,D0 
3Ee e1 Dialog 
BSR GetDefault LINK A6, 4-16 
1 RTS CLR.L  -({5P) 
M@vE B(AG) SP) 
3: iInitialise les ‘Managers’ --- CLR.L - (SP) 
InitManadgers MOVE.L +#-1,-(5P) 
PEA -4 (A5) _GetNewDialog 
_InitGraf MOVE.L  (SP)+,-4 (A6) 
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+ Initialise ProcPtr du UserItem vers 
+ Procédure qui entoure le bouton par 
+ défaut, 
MOVE .L -4(A6),-(SP} 
MOVE #3,-{(SP) 
PEA -6(A6) 
PEA -101A6) 
PEA -168(A6) 
_GetDIten 
MOVE.L -4(A6),-(SP) 
MOVE #3,-(SP) 
MOVE -6(A6),-(SP) 
P£EA OutLineButton 
PEA -18 (A6} 
_3etDitem 
ModalLoop attend une action 
CLR.L -(SP) 
PEA 101A6) 
_ModalDialog 
CMP #okButton,10{A6) 
SEQ 10(A6) 
;Fin du dialog 
MOVE.L -4(A6),-1SP) 
_DisposDialog 
UNLK A6 
MOVE .L {SP)+,AQ 
ADDQ.L #2,SP 
JMP (A0) 


itemNo eQu El 
WindouPtr EQU 10 
Variables Locales : 
Type EQU #2 
ItemHandle EQU -4+Type 
Box EQU -B+itemHandle 
OutLineButton 
LINK A6,#-14 
MOVE. L 10(A6),=(5P) 
MOVE #1,-(5P) 
PEA -2(A6} 
PEA -6(A6} 
PEA -14(A6) 
CetDitem 
MOVE #3,-(SP) 
MOVE #3,-(5SP) 
_PenSsire 
PEA -14 (A6) 
MOVE #-4,-(SP) 
MOVE #-4,-(SP) 
_InsetRect 
PEA -14 (A6) 
MOVE +#16,-1{5P) 
MOVE #16,-(SP) 
_JrameRoundRect 
UNLK A6 
MOVE, L (SP) +,A0 
ADDQ.L #6, SP 
JMP (A0) 
p'GetDefault ===" 
; Affiche le dialog de la mise en page 
; et enregistre les modif, 
; Variable locale 
hPrintRec EQU -4 
GetDefault 


Entoure le bouton par défaut (le 
numéro 1) 

cf inside 1-407 $2 et 1-405 $16-18 
Variables dans la pile : 


LINK A6,/#hPrintRec 
JSR PrOpen 


Récupère ressource de type ‘PREC’ du 
fichier ImageWriter. 


CLR-L —tSP) 
MOVE.L #'PREC',-(SP) 
MOVE #0,-(SP) 
_GetResource 
MOVE.L (SP)+-hPrintRec (A61 
BNE at 

Erreur chargement féssource. 
MOVE #1,-(SP) 
CLR + (5P) 
JSR StopAlert 
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BRA @10 

: Protège la ressource “PREC‘ 

el MOVE.I. hPrintRec (A6) ,AO 
_BNoPurge 

; Valide là ressource “PREC’ 
CLR.B — (SP) 
MOVE.L hPrintRec (A6) ,- (SP) 
JSR PrValidate 
MOVE.B {SP) +,D0 

+: Afficte le dialog de la mise en page 
CLR.B - (SP) 
MOVE.L hPrintRec(A6),-(SP) 
JSR DrStlDialog 
MOVE.B (SP)+,D0 
BEQ e9 


Marque la ressource conne modifiée 


MOVE,L hPrintRec (A6) ,-(SP) 
_CbangedResource 

CLR - (SP) 

_BasError 

MOVE (SP)+.D0 

BEQ @7 


Erreur fonction ChangedRessoutce 
(disquette protégée en écriture ou 


fichier protégée) 


CMP #-44,D0 
BEQ @4 
CMP #-45,D0 
BEQ 683 
CMP #-46,D0 
BEQ e2 

: Erreur Inconnue 
MOVE #10,-(SP) 
MOVE D0,-(SP) 
JSR StopAlert 
BRA e9 


; Le volune est verrouillé 


e2 MOVE #2,-{SP) 
CLR (SP; 
J5R StopAlert 
BRA @9 


+: Le fichier est verrouillé 


e3 MOVE $#1,-(SP) 
CLR — (SP) 
JSR StopAlert 
BRA e9 


: Disquette protégée en écriture 


Ça MOVE #4,-(SP) 
CLR —(SP) 
JSR Stopâlert 
BRA €9 


: Enregistre la ressource 


7 MOVE.L  hPrintRec{A6),- (SP) 
_MritekResource 
CLR - (SP) 
_Paskrror 
MOVE {SP)+,D0 
BEQ €e9 
MOVE #5,-{SP) 
MOVE DO,-(SE') 
JSR StopAlert 


+: Débloque la ressource 


@9 MOVE.L  hPrintRec(A6),A0 
__EHPurge 
g10 JSR PrClose 
UNLK A6 
RTS 
SÉGPAIÏIBEES = Semen ssssense— 


Affiche la StopAlert d'ID 128 avec 
message dont l'ID est dans la pile 
et No de l'erreur {si non nul) 
Variables dans la Pile 


ErrWium EQU 8 
StrID EQU 10 
Variables locales 
String EQU -16 
StopAlert 
LINK A6, #-16 
MOVE.L A2, -($P} 
MOVE 8(A6),D0 





BEQ ei 


EXT.L DO 
LEA -16(A6),A0 
_KomroString 
BRA @2 

êil : Chaîne de iongueur nulie 
MOVE.B #0,-16{A6) 

e2 CLR.L - (SP) 
MOVE.L #'STR ',-(SP) 
MOVE 10(A6),-(SP) 
__CetRasource 
MOVE.L {SP)+,A2 
MOVE.L  A2,A0 
_Æock 

1? Insère le texte dans l'alerte 
MOVE.L (A2),-(SP) 
PEA -16 (A6) 
CLR.L  -4{SP) 
CLR.L  -(Sp) 
_ParanTezxt 


Affiche la fenêtre d'alerte 
expliquant l'annomalle 


CLR - (SP) 
MOVE #128,-(SP) 
CLR.L —{SP) 
_BtoPAlert | 
MOVE (SP)+,D0 
MOVE.L  A2,A0 
_ÆUaLock 

;: Retour 
MOVE. L (SP)+,A2 
UNILK A6 
MOVE .L {SP)+,A0 
ADDQ.L #4,SP 
JMP {A0) 
END 


Fichier Mep.R' 
Note : lecaractère ‘Ÿ indique la 
continuité de la ligne. 


“ Ressources pour le programme 


* Mise en Page 
* 


!Mep 
APPLMYAP 


Type MYAP = STR 
"0 
Mise en Page - G. Zwingelstein 


Type BNDE 
-128(32) 
MYAP 0 
ICN# 
0 128 
FREF 
0 128 


Type FREF 
128132) 
APPL O 


Type ICN£ = GNRL 
-128 (32) 


00000000 00000000 07FrCc000 04086000 
051C5000 043E4800 05084400 04084200 
05087F00 04080100 04880900 05880200 
07EBFFO0 05880D00 04880900 043£E0100 
051C0500 04080100 FFFFFFF8 90000047 
9FFFFFC9 90000049 90000049 3000004F 
9FFFFECS 80000008 80000008 80000008 
80000008 FFFFFFF8 80000008 FFFFFFFS 
* 

00000000 00000000 07FFC000 07FFE000 
07FFFO000 O7FFF800 O7FFFCO8 O7TFFFEO8 
07EFFFO0 07FFFFOO O7FFFF@0 O7FFFFOO0 
07FFFF00O O7FFFF00 O7FFFFO0 O07EFFFFO0 
07FFEFFOO O7FFFFOO FFFEFFF8 FFEFFFFEE 
FFFEFFFFE FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFEFS FFFFFEFFS8 FFFEFFF8 FFEFFFFEFS8 
FFFFFFES FEFFFFF8 FFFFFFFS8 FFFFFFF8 
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* fenêtre d'alerte si erreur système 


50 50 250 450 
128 
5555 


* DITL de la fenétre d'alerte 
Type DITL 

:128 
2 


Button 
170 150 190 250 
OK 


StaticText 
60 20 150 380 
r0751"2"3, 


* message d'erreur de ls tenètref 
d'alerte 
Type STR 
nl 
Le document JImageWriter n'est pas 
cempatible avec cette/ 
apPlicatien. 


2 

LA 

Désolé: la disquette est verrouiilée.] 
Les nouvelles sélections ++ 

ne peuvent être enregistrées. 


»3 
Désolé: le document Imsgewriter est 
verrouiilé. Les nouvelles ++ 
sélections ne peuvsnt êtref 
enregistrées. 
r4 
Lss nouvelles sélsctions n'ont pas puf 
être enregistrées, ++ 
Veuillez déprotéger la diaquette def 
démarrage et recommencer. 


5 

: 

Désolé. Une erreur imprèvue est 
survenue lors dej 
l'enregistrement ++ 


des nouvelles sélections. Erreur No : 


‘10 
üne erreur syscème iniprévue est/ 
survenue. Erreur No : 


* Dialog des instructions 
Type DLOG 
r 128 
dialog box 
30 10 332 502 
Visible NoGoAway 


1 :dBoxProcb (alert box or modal] 
dialog box) 

0 

129 


* DITL du dislog des instructions 
Type DITL 

‘129 
12 


Button 
270 80 290 180 
OK 


Button 
270 280 290 380 
Annuler 


Userltem Disabled 
000 


StaticText Disabled 

10 5 70 482 

Cette application permet de modifier] 
le format d'impression 
pré-établi ++ 

utilisé dans la plupart desf 
applications (voir l'article 
‘miss en page" ++ 

ou ‘format d'impression! du menuf 
Fichier) par les nouveaux) 
documents. 


StaticText Disabled 
70 5 120 482 
Si vous cliquez sur la case ‘OK’, 


MaC4 stuces 


Plus de 24 points 
avec MacWrite 


Mais oui c'est possible. Il suffit pour cela de 
disposer d’un éditeur de fichiers — FEdit par 


exemple - et de quelques minutes pour les 
manipulations. 
Voici ia méthode : 


+ tapez un mot — par exemple MOT” - et 


donnez-lui la taille 24 points ; 
* enregistrez le petit fichier ainsi constitué ; 
+ avec vore éditeur de fichiers, visualisez le 


contenu du document : on voit apparaître le 


‘MOT ; 
+ le sixième octet après ‘MOT indique 1a 
taille du texte (ici $18 pour 24 en décimal) ; 
+ remplacez la valeur par $32(48 en décimal) ; 


depuis MacWrite, ‘MOT’ serz désarmais 
affiché ea 48 points, il est donc possible de 
le sélectionper et de taper ce que l'on veut à 
la place. 
Cetie méthode autorise aussi les tailles de 
caractères "hors normes" comme, paf exemple, 
8 ou 42 points. 


MacPaint 
et FullPaint 


Si vous maintenez la touche Opuon enfoncée 
Îors du tracé d'une surface remplie {rectagle, 
oval), le bord de la surface ne sera pas tracé. 





Si vous voulez totalement remplacer MacPaint 
par FullPaint, au point qu'un double clic sur 





cette application affichera ++ 
le dialogue du format d'impressionf 
pré-établi (contenu dans le ++ 
document Image#riter de la disquette] 
de démarrage) : 


StaticText Disabled 

120 40 190 482 

11 suffira alors de choisir votre 
format habituel ++ 

st cliquer gur la case "OK" pour 
l'enregistrer comme nouveau] 
format ++ 

d'imprsssion pré-établi ou sur laf 
case ‘Annuler" pour conserver] 
l'ancien. 


StaticText Disabled 

190 5 230 482 

Si vous préférez quitter 
immédiatement cette] 
application, cliquez ++ 

sur ‘Annuler’. 


StaticText Disabled 
240 S 260 482 
© G. Zwingelstein et Pom's - 1986 








Fichier Mep.Job’ 


ASM Mep.Asn Exec Edit 
LINK Mep.Link Exec Edit 
RMAKER Mep.R Finder Edit 


Fichier ‘Mep.Link 


] 


Mep 
PrLink 


$ 





changer PANT en MNPT dans la ressource 
BNDL FullPaint, utiliser Lire les Informations 
de ResEdit pour effecmer la méme rnodification 
et mettre en fonction le bit de liaison. Après 
avoir quitté ResEdit, effectuez un changement 
de dossier pour faire reconnalire au Bureau ja 
modification du type. Et voilà... 


NDLR. : en procédant de cette façon, un 
double clic sur un document FullPaint créé avec 
une version non modifiée n'ouvrira pas ledit 
document. Une autre solwion, plus simple et 
moins définitive, consiste à charger le document 
MacPaint depuis FullPaint, et demander 
Enregistrer sous. le même rom. 





La mémoire du +... 


peut être visualisée si vous appuyez sur la 

touche “INTERRUPT” placée sur le côté 

gauche du Macintosh Plus : 

+ le ‘prompt’ > apparaû ; 

+ tapez DM 1000; 

* le contenu dela mémoire, de l'adresse $ 1000 
à S10SF s'affiche. 

l? est aussi possible de modifier le contenu de la 

mémoire (attention, danger...) en tapant ‘SM’, 

l'adresse (en hexa) et la ou les valeurs à placer à 

partir de cene adresse. 

Pour reprendre le cours normal de Vos activités, 








+ lorsque l'on appelera à nouveau je fichier une image MacPaint ouvre FullPaint , il faut: tapez ‘C”, 
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Tempo 


Depuis très longtemps, nous révions d'un 
accessoire de bureau qui permettrait d'eregistrer 
tout un traitement clavier/souris et de le 
rappeler avec une simple combinaison de 
touches. Il y a bien eu MacTracks, mais cet 
accessoire ne cessait de faire la bombe. Aussi 
étions-nous ravis de voir débarquer Tempo, 
l'accessoire de bureau pour la création et 
l'utilisation de macro-instruckions. 


Tempo permet d'enregistrer, ea temps réel ou en 
mode programmation, toute une séquence 
d'utrlisation du clavier et de la souris. Cette 
séquence peut Être ensuite modifiée à loisir, 
purs exécutée sur l'appel d'une touche associée à 
la touche Commande. 


Quelques critiques 

En fait, une fois activé, Tempo se loge à droite 
de la barre des menus, avec le symbole 
“Commande”. D'où une première ineompati- 
bilité avec les logiciels qui, tel Excel, 
remplissent cette ligne. En fait, l'imcompati- 
bilité vient ici d'Excel, puisque tout le monde 
sait maintenant que les applications doivent 
laisser une place dans la barre des menus, pour 
un éventuel accessoire justement. Certains 
logiciels fort connus, tels ReadySetGo, 
Switcher où ThinKTank, sont allergiques à 
Tempo félicitons ici l'initiative de 
l'importateur qui fournit uve première liste de 
ces allergies. Avee PageMaker, Tempo exige 
l'original, ne perinettant même pas qu’on 
l'introduise seulement lors de la vérification de 
copyright. Enfin, Tempo est vite débordé quand 
on utilise les possibilités les plus intéressantes 
telles que la programmation de pauses ou de 
boucles : il affiche alors des messages 
totalement incohérents et se comporte 
bizarrement. 


Quelques avantages 


Tempo est en fait un out1 idéal pour accomplir 

sans difficultés et sans risque d'erreur des actions 

répétitives simples. Dans ce cas d'ailleurs, 
méme les fonctions avancées (pauses, boucles 
et tests) fonctionnent de façon satisfaisante. 

Tempo est vraiment utile, pour prendre trois 

exernple s: 

* comme glossaire pour MacWrite ; 

* pour effectuer des Rechercher/Remplacer ou 
des changements de police et de style 
fréquents ; 

* pour faciliter avec Pagemaker une opération 
ennuyeuse telle que le choix de caractères. 


Une bizarrerie 


Cette deruière utilisation fait toucher du doigt 
une particularité de Tempo. Supposons que, 
daas une fenêtre de dialogue, on fasse défiler une 
liste (par exemple, de polices de caractères), 
pour trouver celle que l'on veut, et qu'on la 
sélectionne. Tempo n'enregistre alors pas la 
police choisie, mais le mouvement de la souris. 
Le résultat est que, lors de l'utilisation, la 
police sélectionnée par la macro dépendra de la 
position antérieure, c'est-à-dire de la sélection 
précédente. Pour être francs, il faut dire que 
nous ne voyons pas très bien comment le 
programmeur de la chose aurait pu faire 
autrement. 


Une astuce résout ce problème : quand on doit 
faire défiler une liste dans une fenétre, il faut 
d'abord revenir au premier élément de la liste et 
le sélectionner, puis pratiquer la sélection 
voulue. 


Conclusion 


C'est finalement un produit qui comporte des 
potentialités intéressantes mais qui, en dehors 
des exemples simples d'application présentés 
ci-dessus, risque de décevoir. Peut-être faut-Il 
attendre une prochaine version ? 


Créé par Affinity Software (Boulder, Colorado) 
e vendu por Alpha Systèmes avec une 


documentation en français. G 


dMac HI 


Ce produit, malgré son nom et la compatiblité 
dBase III qu'il semble impliquer et qu'il 
revendique d'ailleurs dans sa publicité, ne 
provtent pas d'Ashton Tate. Ce n'est pas non 
plus un clone logiciel, puisqu'il ne tourne pas 
sur le méme matériel que le logiciel qu'il imite. 
Son objectif est ciair : donner aux utilisateurs 
du Macintosh la possibilité à la fois de 
cécupérer des fichiers dBase développés sur IBM 
PC/XT, et de retrouver la syntaxe et le 
vocabulaire de dBase auquel ils sont déjà 
famiïiarisés. 


Ce programme donnera à ceux qui ne 
connaissent pas encore le manque de 
convivialité caractérisé de l'IBM PC et de dBase 
{par rapport à ses concurrents sur Mac) une 
assez bonne compréhension — par comparaison 
— de la grande convivialité du Mac. 


La documentation est entièrement francisée, 
mais le iravail a été fait un peu vite, ce qui 
donne parfois jusqu'à 10 fautes par page, entre 
le français, l'orthographe et la ponctuation. 
Pourquoi donc les éditeurs et importateurs 
français ont-ils tant tendance à sous-estimer 
l'importance d'une documentation bien finie ? 


La première conséquence que l'on peut en ürer 
d'un essai de dMac IE est que ce produit, vu son 
ambition de ressembler à dBase, ne peut 
exploiter pleinement le graphisme/souris du 
Mac. Deuxièmement, ii est de notre devoir de 
souligner que la compatibilité avec dBase III 
n'est en aucun cas totale : les caractères 
graphiques de 11BM PC, ainsi que les caractères 
accentués, ne se récupèrent pas tels quels. Les 
fichiers mémo ne sont pas récupérables non 
plus. Ajoutons que PC Diffusion International 
a l'honnéteté d'avertir l'utilisateur de ces 
limitations, et promet de résoudre ces 
problèmes. Enfin, la définition de la structure 
d'un fichier est celle de dBase IF, ex non pas 
celle de dBase III. 


En conclusion d'une analyse rapide, disons que 
l'utilisateur de dBase ne sera pas dépaysé — 
contrairement au Macophile impénitent — et, 
qu'au prix. de certaines modifications, il potirra 
récupérer ses fichiers dBase IBM ; notons au 
passage que rien n'est dit sur la écupération de 
fichiers Apple II, ce qui pourtant devrait aussi 
étre possi ble sans difficulté supplémentaire. Il 
serart intéressant de voir comment sera le dBase 
Mac d'Ashton Tate, qui devrait étre disponible 


en France en début 87. Contrairement à dMac 
Ill, dBase Mac, compatible avec dBase LI, doit 
sorür en fin d'année; c'est une base de donnée 
relationnelle complète, permettant d'ouvrir 36 
fichiers àia fois, un produit concurrent d'Ornnis 
III, de 4èMe Dimension et du plus récent 
REFLEX de Borland, lui aussi bientôt 
disponible en français. 


PC Diffusion Internabonal, 9 bis, rue Casimir 
Pinel, 92200 Neuilly. Prix : 3950 F HT. 





FullPaint 


C'est bien simple : si vous aimez MacPaint, 
vous adorerez FullPaint. Voici enfin pro- 
gramme totalement compatible avec MacPaint 
{c'était la moindre des choses !), et qui permet 
de faire tout ce que fait MacPaint, plus : 


+ travailler sur des images en plein écraa ; 

+ avoir plusieurs documents ouverts &ia fois ; 

+ effectuer des rotations et transformations 
diverses ; 

+ déplacer où cacher les outils et les motifs ; 

-« utiliser des règles et des pointeurs de 
position ; 

+ coller depuis l'Album des documents plus 
grands que la fenétre ; 

- imprimer avec l'ImageWriter dans les 
farmats 50%, 100%, 200% et 4007 ; 

+ imprimer avec la Laser Wiiter jusqu'à400%. 


Seul inconvénient majeur : il ne se charge pas 
automatiquement quand on clique dans un 
document MacPaint. Et encore, la solution à ce 
problème vous est proposée dans la rubrique 
Enfin, à l'aide du ‘driver’ CelorPrint disponible 
sur la disquette FullPaint, vous pouvez 
imprimer des documents FullPaint en couleur, 
avec de nombreuses imprimantes, dont, bien 
entendu les Image Writer I (on peut y mettre des 
rubans de couleur) et Il, Epson JX-80, Canon à 
jet d'encre ou Scribe, pour ne citer que les plus 
connues. 


Conclusion 


Un produit que nous recommandons vigou- 
reuserment et sans réserve, ce qui est hélas un 
plaisir trop rare. 


Diffusé par Ann Harbor Softworks, 3081125. 
State Street, Ann Harbor, MI 48184, USA. 


Version US. G 
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Minitel & Macintosh eas-Luc Bazanegue 


Dans ce numéro, Pom's propose deux 
programmes effectuant à peu près les 
mêmes tâches. L'un fonctionne sur les 
Apple //, l'autre — celui qui correspond à 
cet article de présentation — sur les 
Macintosh ; les deux utilisant le Minitel. 
Afin de ne pas mettre deux fois la même 
chose dans la revue, il nous a semblé 
préférable de placer les généralités sur le 
Minitel ainsi que les problèmes qui lui 
sont liés dans un article commun que vous 
pourrez trouver, si cela vous intéresse, 
page 53. 


Un schéma vous indique le cablâge 
nécessaire à la réalisation, très simple 
(nous joignons un petit dessin qui donne 
la correspondance entre les transistors sur 
le schéma et leur apparence physique, ce 
qui rend le montage accessible à tous), de 
l'“interface” reliant le Minitel au 
Macintosh ou au Macintosh plus. Ce 
dernier utilise une fiche ‘Mini-DIN’ qui 
n'est pas encore en vente partout ; si vous 
avez des problèmes pour vous en procurer 
une, il vous sera toujours possible 
d'employer la solution Macintosh 128 ou 
S12Ko avec, en plus, un adaptateur 
Mac/MacPlus (DB9 femelle/Mini-DIN 
mâle). L'autre solution consiste en l'achat 
d'une “interface” du commerce. 


Le programme emploie plusieurs menus ; 
le menu ‘Mode’ est le principal. Voici le 
premier de ces modes de fonctionnement : 









Stockage 
Consultation 
Copie d'écran 

Préparation/envoi 


Ce mode sera utilisé pour ‘engranger 
rapidement les informations qui arrivent 
sur l'écran du Minitel. Pour cela, il faut 
utiliser le clavier et la souris du Macintosh 
à la place du clavier du Minitel (on ne petd 
pas au change !}. Les commandes Minitel 
(Sommaire, Guide ,etc.) sont obtenues 
par l'action sur des boutons affichés à 
l'écran ; certaines d'entrelles sont acces- 
sibles par des “équivalents clavier” : 






Envoi ‘Retour chariot’ ou ‘Entrée’ 
Suite ‘Tabulation’ 
Correction  ‘BackSpace’ 
Anpulation ‘Annulation’ 
(uniquement MacPlus) 


Le but du jeu est donc d'enregistrer les 
écrans ; il faut pour cela ouvrir un fichier 
sur une disquette (ou un disque dur) à 
l'aide du menu fichier et de son article : 

LCA LEE 
Nouveau. 
Gun... 
Entegistrerient 
Fermer 

Quitter 








Cet article affiche la célèbre fenêtre de 
choix du nomde fichier. Cette derniète se 
comportant d'une manière tout à fait 


classique, ajouter quelque chose sur le 
sujet ne serait que gâchis de papier. 
Lorsqu'un fichier est ouvert, il devient 
impossible de changer de mode et il en 
sera ainsi jusqu'à ce que le fichier soit 
fermé. Ah! mais. 








[ETAT 


NotutPau.…, 
Guurir….. 


Enregistrement 
Fermer 
Quitter 


L'article magistralement visualisé 
ci-dessus permet de mettre en ou hors 
fonction l'enregistrement, ceci afin 
d'éviter le stockage d'écrans indésirables 
comme, par exemple, les premiers écrans 
de l'annuaire électronique. Il s'agit en fait 
de l'équivalent de la touche “Pause” d'un 
magnétophone. 

Lorsque l'enregisrement est en cours, 
l'article ‘Enregistrement’ apparaît “coché” 
et, simultanément (parfois en même 
temps), un ‘voyant’ s'affiche à côté du 
chonomèkre : 


Fichier 
Nouybati. 
Œuurir… 
Ænregistrement 
Fermer 


Les articles du menu ‘Mode’ redeviennent 
valides : il est possible de changer de 
mode, ou encore de débuter un nouvel 
enregisrement. 

















Chronomètre 
Départ automatique 


Déconnexion automatique. 
Marche 
Mise à zéro 


Le programme propose l'utilisation - 
optionnelle - d'un chronomètre dont le but 
est double : donner une idée du temps 
passé sur un serveur et permethre une 
déconnexion automatique à l'expiration 
d'un temps donné. Puisqu'il y a 
déconnexion automatique, il fallait aussi 
une ophon “Départ automatique”. 


Quand cette option est choisie (article 
‘coché’), le départ automatique aura lieu 
dès que le Minitel émettra quelque chose. 
Notons que, s’il est possible de rendre à 
tous moments cette option valide ou 
invalide, elle ne fonctionne que lorsqu'un 
fichier est ouvert et l'enregistrement 
autorisé. Si le chronomètre était en fonc- 
tionnement ou simplement n'était pas à 
zéro, le premier caractère reçu provoquera 
sa réinitialisation. 

Pratiquement, une séance d'enregis- 
trement avec départ automatique du 
chronomètre pourrait débuter ainsi (on 
considère que le Minitel est sous tension) : 





+ ouverture d'un nouveau fichier ; 
+ autorisation d'enregistrement ; 
+ demande de l'option “départ automa- 


tique” ; 

* composition du 11 (annuaire électro- 
niqué) ; 

+ connexion au réseau par sélection de 
l'article “connexion” du menu 
“Liaison”. 

La dernière opération provoque le déclen- 

chement du chronomètre. 






Chronomètre 
Deconnexion automatique. 
Marche 
Mise à zéro 






La “déconnexion automatique” pourra être 
utile à ceux qui ne veulent pas que leurs 
factures téléphoniques atteignent des 
sommets vertigineux. La sélection de 
l'article provoque l'affichage de la fenêtre 
de sélection suivante : 


Déconnexion automatique 
au bout de minutes 





La fenêtre propose, par défaut, trois 
minutes ; ceci correspond au temps 
pendant lequel l'annuaire électronique est 
gratuit dans les zones où il est accessible 
par le 11. Il est possible de choisir une 
durée allant de 1 à 59 minutes. Une fois le 
choix effectué, l'article apparaît coché 
avec, à sa suite, un rappel du nombre de 
minutes. 


Remarques : 

+ le processus de déconnexion du réseau 
est entamé deux secondes avant 
l'expiration du délar, ceci afin de tenir 
compte de l'inertie de l'ensemble 
Mac/programme/Minitel (prononcez 
chaîne télématique, comme dans les 
salons où l'on cause) ; 

+ la déconnexion a lieu lorsque le 
chronomètre ‘passe’ au temps donné : 
si le chronomètre n'est pas à zéro 
lorsque l'option déconnexion 
automatique est demandé, le temps est 
faussé (on se croirait dans la quatrième 
dimension !). De même, si on demande 
ua temps de déconnexion inférieur à la 
valeur courante du chronomètre, la 
déconnexion sera immédiate ; 

+ l'option est outrepassable : si la 
déconnexion n'est plus désirable, 
sélectionner à nouveau l'article 
“déconnexion automatique” ou 
demander l'arrêt du chronomètre ; 

+ bien que les options “déconnexion 
automatique” et “départ automatique” 
soient indépendantes, elles seront, la 
plupart du temps, utilisées de conserve. 
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EEE" 





ES ES NS 


Fichier : Teite à tronsmettre 
Nombre de coractères 752 


Enuoyer un message à un Serveur par l'intermédiaire du 


Minitel reulent généralement assez cher, ceci à cause du 
clavler - pos uroiment ergonomique - et des possibilités 


d'édition (ineistantes). On passe facilement dix minutes 
ou plus à entrer un texte comme celul-ci. L'option 
"Préparatlon/Enuol" du programme proposé dans le 
numéro 27 de Pom's autorise une saisie préalable el 
alsée (Couper, Coller...) de tentes qui pourront &tre per la 
sulte (ou Immédiatement) transmis au serveur, at ceci 
rapidement (un peu plus d'une minute pour ce texle). Le 
progremme permet bien sûr la sauvegarde, le 
chargement et la modification des telles créés à parüir 
de cette oplion, mais aussi le chargement de textes mis 


en forme éuec n'importe quel éditeur de tente 










Chronometre 
DéPari automatique 
©Déconnexlon automatique /3’ 
Marche 

Permet la mise en marche du chronomètre 
et remplie le même rôle que le bouton 
‘M/A’ placé dans la fenêtre (ceci 
fonctionne quelle que soit la valeur 
courante du chronomètre). Une fois 
sélectionné, l'article “Marche” devient 
logiquement “Arrêt”, et un petit ‘voyant’ 
s'affiche entre les boutons ‘M/A' et ‘Q”’. 


a 


Chronomètre 
YBépart automatique 
‘Déconnexion automatique /3* 
Arrêt 

MIE 4201) 


















Force à zéro le chronomètre sans l'arrêter. 
Il fonctionne comme le bouton ‘@” placé à 
côté dans la fenêtre. 







Liaison 
Connexion 
Déconnexion 
1200 bauds 
4800 bauds 





Le premier article du menu “Liaison” est 
utilisé pour connecté le Minitel au réseau, 
après avoir fait le 11, le 36 15, etc. 









Liaison 


Déconnexion 
1200 bauds 
4800 bauds 
C'est le contraire, c'est-à-dire Jla 


déconnexion complète du réseau. 


Attention, le bouton “Connexion/ Fin” 
situé dans la fenêtre n'a pas la même 
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fonction que les articles du menu 
“Liaison” : il sera utilisé pour passer, par 
exemple, du niveau serveur au niveau 
Télétel. 

Pour conclure le ‘mode d'emploi’ du 
mode “Stockage”, il convient de signaler 
qu'un ‘bip’ juste après une commande 
signifie qu'elle n'a pu être prise en 
compte ; lademande doit être réitérée. 


Stockage 


Consultation 


Copie d'écran 
Préparation/envoi 


Le mode “consultation” est employé pour 
renvoyer sur le Miaitel les informations 
accumulées à partir du mode “Stockage”. 
La fenêtre contient les boutons de 
commande, ainsi qu'une indication sur le 
nombre de pages dans le document 
actuellement ouvert et le numéro de la 
page courante. 





















Fichier 


Nouveau... 


Ouvrir … 

Enreyisirernment 
Fermer 
Quitter 


Macintosh 126 ou S12 


ge Minitel/Macintosh 


Macintash Plus 


Composants nécessaires : 2 transistors 2N2222, 2 résistances de 10 KO, 1 de 18 KQ 





Permet d'ouvrir un fichier, uniquement 
s'il a été créé à partir du mode “stockage” 


Une fois le fichier ouvert, les boutons de 
commandes sont rendus valides en 
fonction du nombre de pages du 
document. Leur signification : 


« |<C « première page du document 
e <Ce dix pages en arrière 
e <e une pageen arrière 
e > e page suivante 
e >> e dixpagesenavant 
e >>l e dernière page du document 


Il est aussi possible de passer à la page 
suivante avec les touches “retour-chariot” 
et “entrée”. 


Note : afin d'éviter la confusion des 
écrans, on ‘vide’ celui du Minitel avant 
chaque changement de page, sauf 
lorsqu'on passe à la page suivante. 







Lioison 
Conneaklan 
Hlécpaneuinn 
1200 bauds 

4800 bauds 





La vitesse de transmission par défaut vers 
le Minitel est de 1209 bauds ; si votre 
‘mini-terminal’ le permet, il est possible 
de passer à 4800 bauds, ce qui donne un 
plus grand confort à la consultation. Bien 
que cela ne présente pas beaucoup 
d'intérêt, on peut changer de vitesse à tout 
moment 


Attention : de manière générale lorsque 
vous utilisez ce programme, et surtout si 
vous utilisez le changement de vitesse de 
transmission, il faut que le Minitel soit 
relié au Macintosh, et sous tension. Ceci 
garanti l'utilisation de vitesses identiques 
par les deux appareils. 

















Mode 


Stockage 
Consultation 


Copie d'ecran 


Préparation/envoi 


INFORMATIQUE CHATERIEL ET 
FOURNITLRES OJUERS) 
LES ULIS ESSONNE 2 


<1 69 07 16 93 





1 3 Con (8té) 

æ Québec 

Apple Computer France 
2 -av Gcéaiie 13 69 28 22 00 
3 -neme adresse C1) 69 28 12 11 
> 4 Rpple Computer France 


5 Axel (SA) 
ay Québec 


C1) 69 28 27 27 





> plus d'informations 
topez le N° cholsl:.,. 
page suivante ? 


ENUO t 
SUITE 


US > 


ElRerertian de <opirs actiue.. 


Le mode “Copie d'éeran” est utilisé 

conjointement aux fonctions du même 

nom, disponibles sur la plupart des 

modèles de Minitel] : 

Fact-I puis F pour une copie d'écran avec 
Caractères accentués ; 

Fact-I puis À pour une copie d'écran sans 
Caractère accentué. 


Pour que la réception de copie(s) 
fonctionne, il faut qu'un fichier — sur 
legrel seront dirigées les informations — 
soit ouvert, et que le bouton “Réception 
de copies actives.” soit ‘on’. Ce dernier 
est nécessaire pour ne pas accumuler tout 
ce quiestenvoyé par le Minitel entre deux 
copies d'écran. 


Si plusieurs copies sont enregistrées sur le 
même fichier, elles sont séparées par deux 
‘sauts de ligne’ et une ligne de ‘-’. 


Pratiquement, pour faire une copie 
d'écran {on suppose qu'un fichier est 
ouvert), il faut : 


+ mettre le bouton “Réception de copies 
actives...” ‘on’, 

+ faire Fnct-I puis F, ou Fnet-I puis À 
sur le Minitel. 


Si l'ordre n'est pas respecté, on peut avoir 
une copie tronquée et, en même temps, 
l'impression de ne plus “avoir la main” 
puisque le programme attend la fin de la 
page, qui ne viendra jamais. Dans ce cas, 
il convient d'envoyer à nouveau une copie 
qui, elle aussi, sera tronquée, mais 
déclenchera une protection du programme 
qui remetira tout en ordre. 


Les fichiers constitués depuis ce mode 
sont exploitables depuis tous les 
programmes qui acceptent le format 
“TEXT’ (MacWrite, Word, Edit...). Afm 
de respecter la géométrie de l'écran, il 
convient, lors d'une impression, d'utiliser 
une police de caractères à chasse fixe 
(Monaco ou Courier). 


D CE 













Stockage 
Consultation 
Copie d'écran 
Préparation/enuoi 






Ce mode sera utile à ceux qui ont 
fréquemment besoin d'émettre des 
messages assez longs vers des serveurs 
et, de manière plus générale, aux futurs 
utilisateurs du ‘courtier électronique’ qui 
sera prochainement mis au service du 
public par les PTT. Il permet l'émission 
de messages préparés “hors réseau’ - donc 
sans contrainte de temps - et, 
éventuellement, leur édit:'on. 









Fichier 
Nouveau. 
Ouvrir. 
Enregistrer. 
F#rmer 
Quitter 






Pour commencer l'édition d'un nouveau 
message. 








[AT A LIT S 
Ouvrir … 
Enregistrer. 
Fermer 
Quitter 







Ouverture d'un fichier contenant un texte 
édité avec ce mode ou un programme 
autorisant une sauvegarde en format 
‘TEXT". Si le fichier en question contient 
plus de 960 caractères (un écran Vidéotex 
complet), le programme émet un ‘Bip’ et 
seuls des 960 premiers caractères sont 
chargés. 








Fichier 


Nouveau. 
Ouvrir. 
Enregistrer. 
Fermer 
Quitter 
Pour sauvegarder un texte. Si le texte ne 
porte pas de nom, le programme affiche la 
fenêtre de saisie habituelle, Comme pour 
le chargement si le texte à sauvegarder 
contient plus de 960 caractères, un ‘Bip 


est émis et seuls des 960 premiers 
caractères seront enregistrés. 






Le Bouton “Nombre de caractères” donne 
cette indication dans la ‘case’ placée au 
milieu de la fenêtre. Il peut être utile dans 
le cas de serveur acceptant seulement un 
nombre limité de caractères. 


Le Bouton “Envoi” émet les caractères 
contenus dans la fenêtre vers le serveur, 
ceci à raison de dix caractères par 
secondes. 


Remarques : 


+ les caractères sont filtrés et recodés si 
besoin est au moment de l'émission. 
Certains caractères ‘exotiques’ qui ne 
seraient pas reconnus pas le serveur 
sont simplement supprimés. Ainsi, le 
caractère ‘Y’ n'est pas transmis. Le 





tableau de la page 54 indique les 
caractères valides ; 

la fenêtre de saisie du mods 
“Préparation/Envoi” n'accepte pas les 
‘retours-chariot’. Cependant, us 
‘retour-chariot’ se trouvant dans == 
texte saisi avec un programme cor 
MacWrite sera envoyé au Mini 
comme la commande “Suite” ; 

bien que les ‘retours-chariot’ ne soieza 
pe acceptés directement parla fenèz=, 
es fonctions d'édition Couper, Copæ 
et Coller étant valides, il est possible d 
coller un de ces caractères 

avec un accessoire ; 

la commande “Suite” - qui remplace #s 
‘retour-chariot’ - est suivie d'un délm 
d'environ une seconde et demi, cc 
afin de laisser au serveur le texps de 
‘digérer’ la ligne de texte. 


+ 






[AT LIT à 
Nouveau. 
Ouvrir. 

Enregistrer. 
Fermer 
CITTAUTS 










Quel que soit le mode de fonctionnemen: 
en cours, cet arucle ferme l'éventmel 
fichier ouvert et provoque un retour æ 
Finder. 


Quelques généralités 


Le programme est en deux parties, la 
première est baptisée ‘Minitel/l’ mais ce 
nom peut être changé. En revanche, la 
seconde partie doit impérativement 
s'appelée ‘Minitel/2’ (sinon, il faut 
modifier le ‘(CHAIN" situé à la dernière 
ligne de la première partie). Pour lancer 
l'exécution du programme : un double 
‘clic’ sur la première partie. Si vous avez 
la disquette d'accompagnement de ce 
numéro, elle contient une version 
RunTime du Basic Microsoft. 


Sur un 128Ko 


De grands efforts d'optimisation ont été 
faits afin que ce programme fonctionne 
aussi sur un Macintosh 128Ko. Cepen- 
dant, le système se trouvant un peu à 
l'étroit, il est préférable d'utiliser un 
ancien fichier ‘système’ (numéro de 
version inférieur ou égal à 2.0). Les 
versions postérieures constituent quelque- 
fois, avec le MSBasic 2, un mélange 
“détonnant’ (seulement sur un 128Ko). 


En HFS 


À notre connaissance, il n'existe pas 
encore de version du Basic Microsoft 
compatu ble HFS. Il faudra donc, jusqu'à 
ce que la grande maison nous foumisse 
un Basic en état de marche, laisser la 
totalité des fichiers (interpréteur et 
programmes compris) au niveau 0. 
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Programme ‘Minitel 
Première partie (‘MiniteV1') 


° Fait un peu deplace sionest sur un 

Maæ128K0o. 

IF FRE(0)<50000! TAEN CLRAR,20000, 
2200 


e ]nirialise les tableaux de variables et 

quelques variables utilisées plus loin. 

DEFINT A-Z:DR=ABS (FRE(0)>50000!'):T 
20=2000+30000*DR:T22=63+447*DR:D 
V=0:V$=#12*:CD$="Déconnexion aut 
omatique":CC$=" Clic’ pour conti 
nuer_" 

DIM A!(T22),1(T22}),V(2),A(98),B(23 
2),C(7),D(269),E(19},A$(9),F(3), 
G(3},H(3),J(26),K(26),L(26),M(22 
)eN(3),0(3),P(3),0(3),B$(5),R4{3) 
:8(3),T(89),U(23),W(18),X(65),C$ 
(4,1),Y(3),21(14),CR(2,3),22(4,4 
),PL(1} 


+ Code ob jet de la routine "Délai. 

DATA &h4E56,0,6h362E, 8,6h48C3,6h59 
4F,8hA975,6h281F,&hD883,6h594F,6 
hA975, &hB89F,&h62F8,6h4E5E, &h4E7 
5 


- Code objet de la routine de char gement 

descurseurs (Pom's 18). 

DATA 6H4E56,0,8&H42A7,&H3F2E,8, 6HA9 
B9,6H2057, 6H2E90,6HA851, 6H4E5E, & 
H4E 75 


- Titres des boutons en mode 

“Consulaïion”. 

BATA - |<< ie vs ee D + 
DD ee, >>] ° 

- Positions et titres des boutons enmode 

“Stockage”. 

DATA 16,16,Connexion, 56,16, Sommair 
e,96,16,Guide,56 ,112,Annulation 
:96,112,Correction,56,208,Retour 
:96,208,Suite,16,304,E. Page,56, 
304,Répétition,96,304,Envoi 


- Pour les polygones des boutons en mode 

“Stockage”. 

S2:DATA 54,0,0,24,88,0,9,0,86,2,88 
:22,88,24,86,24,2,22,0,10,0,7,1, 
1,7,0,9 

+ Définitiondes boutons ‘Marche Arréf et 

‘Mise à 2ér0' en mode “Stockage”. 

DATA 16,25,6H7FFE,6H8001,6H9FF9,6H 
9FF9,6H8811,6H8761,6H83C1,6H8181 
,6H8181,6H8241,6H84A1, 6H8BD1,6H9 
FF9,6H9FF9,6H8001,6H8181,6H8261, 
6H8241,6H82C1,6H8341,6H8241, &H86 
41,6H8181,6H8001,6H7FFE,6H9141,6 
H9B41,6H9581,&H9181,6H8131,6H814 
9,6H8279,6H8249,6H8001, 6H7FFE 


° Définüion du voyant enregistrement en 

mode “Stockage”. 

DATA 11,25, 6H7FC0, GHFFEO,6HF1E0,6H 
EAEO,&HE4E0,G@HEAEO,&HF160, &HFF60 
:6HFF60,6HC160, &HCF60, &HCF60,6HC 
360, 6HCF60,6HCF60,6HC160,&HFF60, 
&HFF60,6HF160,GHEAEO,6HE4E0, &HEA 
E0,&HF1E0,&HFFE0,6H7FC0 


- Pour le polygone du chrono. 
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DATA 46,12,150,40,258,12,152,12,25 
6,14,258,38,258,40,256,40,152,38 
,150,14,150,12,152 


- Rectangles divers. 

DATA &HDDFF,14,14,14,42,165,168,80 
-8H77FF,208,195,170,10,8,9,5,6HD 
DFF,39,39,39,68,183,182,104,6H77 
FF,257,206,175,176,128,127,131 


- Code objet de la routine “Conversion”. 

DATA 6H4E56,0,6H302E,8,6H41FA,6HB8 
:6H721F,6H43FA,6H32,6HB011,6H662 
0,8H2091,6H4A69,2,6H670C,6H4A29, 
3,6H670C,6H10BC, 3,6H6014,6H10BC, 
1, SH6O0E, 6H10BC, 2, 6H6008,6H5889, 
6H51C9, 6HFFD8, 6H51D0,6H4E5E,6H4E 
75,6H8819,6H4161,6H8919,6H4361,8 
H8D19, 6H4B63, 6H8E19,6H4265 

DATA 6H8F19,6H4165,6H9019,6H4365,6 
H9119,6H4865,6H9419,£&H4369,6H951 
9,6H4869,6H9919,6H436F,8H9A19,6H 
486F,8H9D19,6H4175,6H9E19,6H4375 
, 6H9F19, 6H4875, 6HA119, 6H3000,6HA 
319,8H2300,6HA419,6H2700,6HA719, 
6H7B00,6HB119,6H3100, &HCE19,6H6A 
00 

DATA &HCF19,£6H7A00,6HD619,£:H3800,6 
H70D,0,6H913,6H4100,£8H513,6H4200 
:8H813,6H4300,6H213,6H4400,6H313 
-8H4500,6H113,£8H4600,6H413,6H470 
0,6H613,6H4800,6H13,6H4900 


- Code ebjet de la roue “Clic”. 

DATA 6H4E56,0, &H246E, 8, 6H3A2E, 12,6 
HCAFC,6H36,GH4EBA,6H144,6H4EBA,€ 
H12E, 6H70FF,6H51C8,6HFFFE,SH4EBA 
#6H124,6H4EBA, 6H12C, 6H4EFA,6HC6, 
6H4E56, 0,6H246E,8,6H487A,6H198,6 
HA972,8H7609,6H7800,6H7A00,6H426 
7,6H47FA,€6H18A,6H2F13,6H4872,6H5 
002,68HA8AD, 6H4A5F,6H6600 

DATA €HA2,6H645,6H36,6H5244, 6H51CB 
: SHFFE4, 6H43FA, 6H166,6H47FA,6H16 
A,6H51EB,5,&H22BC, 15,6H99,6H237C 
16H26,6HA7,4,6H4EBA, 6H132,6H661A 
:6H43FA, 6H146, 6H337C,6HB2,2, 6H33 
7C,6HC0,6, SH4EBA, 8&H11C,6H6758,€H 
50EB,5, SH4EBA, 6H124, 6H50EB, 4,6H4 
267 

DATA 6HA973,6H4A5F, 8H6700,6H26,6H4 
87A,6H122, 6HA972,8H4EBA,6HFA,6H6 
708, 8H4A2B,4,8H66E4, 6H60ODA,6H4A2 
B, 4,6H67DC,6H4EBA,6HF8, 6H51EB, 4, 
&H60D2,6H4A2B, 4,6H6602,8H6016,6H 
4A2B,5,6H670A,6H36BC,11,6H4EBA,6 
HDC,6H600A, 6H36RC, 10, 6H60F4, 6H36 
BC, CHFFFF,6H4ES5E 

DATA 6H4E75,6H4EBA,6H62,6H614C,6H5 
0EB,4,6H4267,6HA973,6H4A5F,6H672 
E,6H487A,6HC6, 8HA972,6H4267,6H43 
FA,6HBE,6H2F11,6H4872,6H5002,cHA 
8AD, &H4ASF ,6H6708,6H4A2B, 4, &6H66D 
A,8H60D2,6H4A2B, 4,6H67D2,6H6118, 
&HS51EB, 4,6H60CA,6H4A2B, 4,6H6604, 
6H6116, GHGOAE, 6H6106,6H3684 

DATA €H610E, &H60AA, 6H2F0C,6HA8C9,6 
H487A,&H7A,6HA8BA, 6H4E75,6H204C, 
6&HA023,6H4E75,6H7036,6HA122,€cH43 
FA,6H68,6H22B2,6H5002,6H2351,4,6 
H5369,0,6H5369,2,6H5869,4, 6H5869 
6: 6H43F2, 6H5000,6H2848,6H2050,6 
H701A,6H30D9,6H51C8, &HFFFC,6H205 
4, 6H5268,10,6H5268,14 


I 


DATA €6H5268,6H22,6H5268,6H24,6H526 
8, 6H28, 6H5268, 6H2C,6H5268,6H2E,6 
H5268,6H32,6H4E75,6H4267,6H47FA, 
&H1E,6H2F13,6H487A,16, GHA8AD,6H4 
ASF,6H4E75,6H487A,6, &HA8A4,6&H4E 7 
So 


- Code objet de larourre “FO”. 

DATA 6h4E56,0,6h226E,8,68h5489,6h70 
00,6h1019,6&hE188 

DATA 6h1019,6hE188,6h1011,6h41FA,6 
h006AÀ,6h2248,6h7218,6h4259 

DATA &h51C9,6hFFFC,6h2140,18,&hA00 
0,6h43FA,6h54,6h32A8 

DATA 16, &h4E5E, 6h4E75,6h4E56,0,68h4 
1FA,6h46,6h42A8 

DATA 12,6h226E, 8,8h1019,8#hE148,6&h1 
019,6h3140,6h26 

DATA 6h7000,6h1019,8hE188,6h1019,6 
hE188,6h1011,6h2140,32 

DATA 6h317C,1,6h2C,&8h216E,12,6h2E, 
&hA002, &h60BA 

DATA 6h4E56,0,6h41FA,12,6h42A8,12, 
6hA001,8h604A 


- Code objet de la routine defermenrre des 

fenêtres (Pom's 19). 

DATA 6H42A7,&HA924,8H2E1F,6H6706,8 
H2F07,6HA916, &H60F2, 6H4E75 


+ Code objet de le routine “MAJ”. 

DATA @H4E56,0,GH76FF,6H266E,8,6H38 
1B,6H643,11, 6H3F3C,2,6H3F03, &HA8 
93,6H5344,6H6B10,6H7000,6H101B,6 
HCO0,13,6H67E6,6H3F 00, 6HA883,6H6 
OEC,6H4ESE,6H4E75 


+ Code objet de la routine de chargement 

des icôres(Pom's 18). 

DATA 6H4E56,0,&@H42A7,6H3F2E,6HC,GH 
A9BB,6H2057,6H2250,6H246E, 6H8,6H 
24FC,32,32,6H701F,6H24D9,8H51C8, 
&HFFFC, SH4E5E,6H4E75 


* Pour message si plus de 2000 caractères 
par pages (128Ko). 


DATA ,5,t,ent,,s,"“ a“,"* ont“,.,s. 

Titres des menus. 

DATA Mode,Stockage, Consultation,Co, 
pie d'écran, Préparation/envoi,Fi 
chier, Nouveau, Ouvrir…,Enregistr 
ement,Fermer,Quitter,Chronomètre 
Départ automatique, Déconnexion 
automatique.…,Marche,Mise à zéro 

DATA Liaison,Connexion, Déconnexion 
1200 bauds,4800 bauds,Pom's, (1) 

39.51.24.43 


+ Positions descaractères du chrono. 
DATA 212,220,232,240 


° États des articles du menu “fichier” pour 

Ls différents modes. 

DATA 0,0,1,1,1,1,0,0,0,1,0,1,0,0,1 
‘1,1,1,0,1,0,0,0,1,1 


e Initialisationdes tableaux de 

variables et mise en place des menus. 

FOR I=0 TO 14:READ Z1(1}:WEXT:F OR 
1=0 TO 10:READ Z(I}):NEXT:A!=VARP 
TR(Z(0)):A! 4 

FOR I=0 TO 5:READ BS(1):NEXT:FOR I 
x0 TO 3:F(I1)=6HAA55:H(1)=-6HFFFF: 
NEXT:FOR I=0 TO 18 STEP 2:RERD E 
{1),E(1+1) ,AS$ (1\2) :NEXT:N-0:FOR 
1=0 TO 18 STEP 2:RESTORE S2:READ 


A 








D(N) :=N=N+1:FOR J=0 TO 12:READ D 
(N),D(N+1) 

D{N)=D(N)+E (1) :D(N+1)=D(N+1)+E(E+1 
):N=N+2:NEXT:NEXT:FOR I-0 TO 16: 
READ A:J(1)=A:K(I)=A:NEXT:FOR I= 
17 TO 26:READ J{I) :NEXT:FOR 1=17 

TO 26:READ K(I):NEXT:FOR I=0 TO 
26:READ L(I):NEXT:FOR I=0 TO 22 
:READ M(I) :NEXT 

FOR I=0 TO 3:READ G(I),N(I},0(1),P 

(1):Q(I),R(1},S(1),Y({(1) :NEXT:FOR 
1=0 TO 96:READ A(1I):NEXT:FOR I= 

0 TO 225:READ B(1):NEXT:FOR 1=0 

TO 63-READ T{I):NEXT:FOR I=0 TO 

7:READ C(I}:NEXT:FOR 1=0 TO 23:R 

BAD U(I) :NEXT:FOR 1=0 TO 18:READ 
W(I) :NEXT 

FOR 1I=0 TO 4:READ CS$S{I,0),CS(I,1): 
XRXT:A1=-0:A!=VARPTR(C(0)):A!:A1S 
="3*;A2$=CERS (27) +CER$ (57)+CHR$( 
103) :A6$=CHRS (27) +CAR6 (57)+CHR$( 
104) :A2=0:H$=CHR$ (13) 

FOR I=0 TO 4:READ CS:MENU 1,1, (I<> 
1)+2,CS:NEXT:-FOR I=0 TO 5:READ C 
$S:MENU 3,1,(I>1 AND 1<5)+1,CS:NE 
XT:FOR I=0 TO 4:READ CS:MENU 4,1 
1,CS:NEXT:FOR. 1=0 TO 4:READ CS: 
MENU 5,1,(I>2)+1,CS:NEXT:FOR I=0 
TO 1:READ CS:MENU 6,1,1,C$:NEXT 

FOR I=0 TO 3:READ CR(2,1):NEXT:FOR 

1=0 TO 4:FOR J=0 TO 4:READ Z2(I 
2) :NEXT:NEXT:CHAIN “Minitel/2", 
ALL 


Programme ‘Minitel 


Seconde partie (doit être 

baptisée ‘Minitel/2) 

* Adresses en cas d'interruptions par les 

événements. 

DEFINT A-Z:GOSUB T14i:GOSUB Tl14o:G 
OSUB S4:ON @RRAR GOSUB S1:BREAK 
ŒN:CN ERROR GOTO SU:ON DIALOG GO 
SUB 5S5:ON MENU GOSUB S17:ON MOUS 
E GOSUB S20:ON TIMER(1) GOSUB 52 
2:GOSUB S19:INITCURSOR 


+ Boucle principale. 

10 ON A3 GOTO 11,10,13,10 

GOTO 10 

11 IF A4 THEN IF A5>-A6 THEN GOSUE 
S18:GOSUB S55:GOSUB MA:GOSUB S5 
3:GOSUB 519 

C$=INKEYS:IF C$<>"" THEN 20 

12 IF A3=1 THEN A8=LOC(2):1F DE TH 
EN IF A8 THEN PRINT#3, INPUTS (AB, 
2)::A9=A9+A8:IF C6 THEN IP E7 TH 
EN GOSUB S18:E7-0:DT-0:GOSUB 567 
:GOSUB S68:GOSUB MA:GOSUB S19 

IF B1 THEN B1=0:GOSUB S48 

IF DE=0 THEN IF A8 THEN CB$-INPUTS 
(A8,2) 

GOTO 10 

13 IF B2 THEN IF B3 THEN A8-LOC(2) 
:1F A8 THEN GOSUB S80 











GOTO 10 

14 GOSUB S63:GOTO 10 

15 GOSUB 130:GOTO 10 

20 N=ASC(C$):IF N=13 OR N=3 THEN N 
=9:GOTO 30 

IF N=8 THEN N=4:GOTO 30 

IF N=9 THEN N=6:GOTO 30 

IF N=27 THEN N=3:GOT0 30 

IF N>31 AND N<128 THEN PRINT#1,CHR 
$(N): ELSE GOSUB 594 

GOTO 10 

30 A!=VARPTR(B(0)):A! N,VARPTR(D(O 
13 :GOSUB S94:GOTO 10 


» On arrive ici en cas d'action sur un menu. 

S17:GOSUB S18:MO0=MENU (0) :M1-MENU (1 
):IF MO<6 THEN ON A3 GOSUB T7,T8 
, S30, T9 

MENU:GOSUB S19:RETURN 


+ Menu et mode “Stockage”. 
T7:ON MO GOSUB S45,S1,S50,554,S59: 
RETURN 


- Menu etmode “Consulation”. 
T8:ON MO GOSUB 545,S1,T10,554,S59: 
RETURN 


+ Menu et mode “PréparationEnvoi”. 
T9:ON MO GOSUB 545,51,535,S54,S59: 
RETURN 


- Article “Stockage” du menu “Mode”. 

S45:1IF Mi=A3 THEN RETURN 

ON A3 GOSUB U1,U2,U1,U4:MENU 4,0, ( 
M1>1)+1:1F M1-2 THEN FOR I-1 TO 
4: MENU 5,1, (1<3)+1:NEXT:MENO 5,3 
,2 ELSE FOR I=1 TO 4:MENU 5,1,(I 
>2)+1:NEXT 

IF M1=4 TBEN CB$="Enregistrer.…." EL 
SE CB$="Enregistrement" 

MENU 3,3,1,CB$:A!=FRE(" "):ERASE À 
l,1,V:ON M1 GOSUB S41,S42,S43,S4 
4: RETURN 

U2:1IF DV THEN DV=0:V$="12":PRINT#1 
/CHR$(27) "“:kd*;: 

U4:CLOSE 1:RETURN 

U1:CLOSE 1:CLOSE 2:RETURN 


- Racodoge des caractères si nécessaire. 


S94:IF N<10 THEN IF LOC(2) THEN BE 
EP:RETURN 

IF N=10 OR N=11 THEN GOSUB 369:RET 
URN 


S88:A1!=VARPTR(A(O)):A1! N:Al!=Al! 
+194:A1-PEEK(Al!):Al!=Al!+1:1IF À 
1=0 THEN RETURN 

FOR 1=0 TO Al-1:PRINT#1,CER$S(PEER( 
Al!+1)})::NEXT:1F B4 THEN RETURN 

IF N<10 THEN GOSUB 596 

RETURN 


- Affichage du contenu de la fenêtre en 

mode “Stockage”. Altention : il y a deux 

‘espaces collants’ dans le PRINT" ””. 

S65:1F DT THEN TIMPR STOP 

GOSUB S61:N=0:FOR 1=0 TO 9:IF I=0 
OR I=7 TEEN FILIPOLY VARPTR(D(N) 
), VARPTR(F(0)):GOTO 597 

IF 1=9 THEN FILIPOLY VARPTR(D(N)), 
VARPTR(G(0)} ELSE FILLPOLY VARET 
R(D(N)),VARPTR(H(O)) 

S97:FRAMEPOLY VARPTR(D(N)):IF 1=0 
OR 1-7 OR 1-9 THEN TEXTMODE 1:TE 
XIFACE 8 ELSE TEXIWMODE 3:TEXIFAC 
E 0 


MOVETO D(N+2)+9,D(N+1)+11:PRINT AS 
(1) :1F 1-0 THEN TEXTFACE 8:MOURT 
O D(2)}+9,D(1)+23:PRINT'"Fin" 

N=N+27:NEXT:FRAMEPOLY VARPTR(M(0)) 
:FRAMBROUNDRECT VARPTR(N(0)),4,4 
:TEXTMODB 1:TEXTFACE 0:MOVETO 22 
7,31:PRINT"’ "":PUT(152,14),K,P 
SET:PUT(177,14),J,PSET:IF A3=1 A 
ND DE THEN PUT(195,14),L,PSET 

IF DT THEN PAINTROUNDRECT VARETR(P 
(0)),4,4:TIMER ON 

RETURN 


+ On arrive ici en cas d'action sur la souris, 

et dans la fenêtre. 

S20:GOSUB S18:0N A3 GOSUB S21,S1,S 
1,S1:GOSUB 519:RETURN 

S21:INITCURSOR:A'=VARPTR(B(21)):A! 
VARPTR(D(0}}:GOSUB S3:IF B(230) 
>-1 THEN N=B(230):79SUB 594 

RETURN 


° En mode “stockage”, mise à jour de la 

table d'index après chaque action sur une 

cormvrande Minitel. 

S96:IF A9<100 THEN S98 

TO:IF A9<T20 THEN 599 

B5=B5+1:A! (B6+1)=A! (B6)+T20:1(B6)= 
120:B6=B6+1:1F B6=722+1 THEN Bi= 
-1:ERROR 240:RETURN 

A9=A9-T20:GOTO TO 

S99:A! (B6+1) =A! (B6) +A9:I (B6) =A9:B6 
=B6+1:IF B6=T22+1 THEN Bl--l:ERR 
OR 240:RETURN 

A9=0 :RETURN 

S98:A!(B6)=A!(B6)+A9:IF B6 TŒEN I( 
86-1)=1(B6-1)+A9:A9=0 

RETURN 

- Ouverture d'unnouveau fichier en mode 

“stockage”. 

TL:DA=0:F$=FILESS (0) :GOSUB S3 

100 IF F$="" THEN DA=-1:RETURN 

191 OPEN"“o”,3,FS$:NAME FS$ AS FS$,"mt 
1F":B6=0:A9=0:A! (0)=0:RETORN 

- Ouverture d'un fichier en mode 

“Consulafion”. 

S62:DA=0:FS$=FIIESS (1,"mt1F®") :GOSUB 
S3:1F F$="* THEN DA=-1:RETURN 

CPEN"I",3,F$:RETURN 


+ On arrive ici en cas d'événements de 

type ‘Dialog'. 

S5:GOSUB S18:ON A3 GOSUB T2,T3,T4, 
T5:GOSUB S19:RETURN 


- ‘Dialog' en mode “Stockage”. 

TZ2:B8-DIALOG(0):IF B8-5 THEN GOSUB 
s92 

RETURN 


- ‘Dialog' en mode “Consultatien". 

T3:B8=DIALOG(0):IF B8-5 THEN GOSUE 
S93:RETURN 

IF B8-1 THEN GOSUB S77:RETURN 

IF B8-6 THEN IF B7<B9 THEN BUTTON 
4,2:C1=4:GOSUB S70 

RETURN 

- ‘Dielog' en mode “Copie d'écran”. 

T4:C2=DIALOG(0) :1F C2=5 THEN GOSUB 
583 

IF C2<>1 THEN RETURN 

IF DIALOG(1)=1 THEN IF B3 THEN BUT 
TON i,1:B3=0 ELSE BUTTON 1,2:B3= 
-1:A1=0:CB$=INPUTS (LOC (2),2) 
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RETURN 

- ‘Dialog' en mode “Préparation Envoi”. 

TS:B8=DIALOG(0):IF B8e5 THEN GOSUB 

S84:RETURN 

IF B8-1 THEN GOSUB S86 

RETURN 

- Mise à jour, mode “Stockage”. 

S92:GOSUB S65:C3=-1:IFP A5 AND DTT 
HEN GOSUB 522 ELSE GOSUB 568 

C3=0:RE TURN 

- Menu “Fichier” en mode “Consultation” . 

T10:ON M1 GOSUB 546,T11,527,532,S2 
8: RBTURN 

+ Mode “Consultation”, mrerw “Fichier” et 

æœtic le “Ouvrir”. 

T1} :F$-FIIESS (1, “mtlF"):GOSUB S3 

120 IF F$-"" THEN RETURN 

OPEN"R",3,F$+".T":FIELD 3,4 AS A3$ 
,2 AS A4$S:GET 3,1 

121 A!'=CVS(A3$):IF A!'<>123.4567 TB 
EN ERROR 254 

B9=-CVI(A4$):1F B9 THEN B7=1 ELSE B 
EBP:r$="":CLOSE 3:RETURN 

FOR 1=2 TO B9+2:GET 3,1:I(I-2)=CVI 
(A4S}:A!{(1-2)=CVS(A3$) :NEXT:CLOS 
E 3:GOSUB 524:K=4:GOSUB T98:GOSU 
B S78 

A5$=CHR$ (LEN(F$))+F$:A!=VARPTR(T(O 
)):A! VARPTR(AS$S):I1F T(64) THEN 
ERROR 255 

PRINT#1,CER$ (12); :GOSUB 533:RETURN 

+ Mode “Consultation”, meru “Fichier” et 

atic le “Fermer”. 

S32:FOR I=1 TO 6:BUTTON 1,0:NEXT:B 
7=0:B9=0:GOSUB S34:A!=VARPTR(T(5 
6)):A!:GOSUB S31:K=2:GOSUB T98:F 
$="":RETURN 

+ Menu et mode “Copie d'écran". 

S30:0N MO GOSUB 545,S1,S529,554,S59 
: RETURN 

+ Menu “Fichier” en mode “Copie d'écran”. 

S29:0N M1 GOSUB 525,S1,527,130,528 
:RETURN 

+ Mode “Copie d'écran”, meru “Fichier” et 

article “Ouvrir”. 

S25:GOSUB S79:IF DA THEN K=1:GOSUB 
T98:MENU 1,3,2 ELSE V(0}=0:BUTT 
ON 1, 1:LINE(1,1)-(242,269),30,BF 
:GOSUB S24:E5=-24:K=4:GOSUB T98:C 
B$=INPUTS (LOC(2),2) 

RETURN 


eMode “Copie d'écran", menu “Fichier” a 

arûcle “Ferme. 

130 CLOSR 3:B2=0:BUTTON 1, 0:B3=0:G 
OSUB S31:K=1:GOSUB T98:F$="":RET 
URN 

- Menu “Fichier” en mode 

“Préparation/ Envoi”. 

S35:ON M1 GOSUB 536,537,538,S1,528 
:RE TURN 

- Mode “Préparation/Envoi”, mer 

“Fichier” et article “Nouveau”. 

S36:F$="":C4=0:GOSUB SPE:MOVETO 56, 
16:PRINT"Fichier : Sans titre":C 
B$="*:GOSUB T30 :RETURN 

- Mode “Prépar ation/Envoi”, menu 

“Fichier” et article “Ouvrir”. 
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S37:INITCURSOR:CB$=FS$S:F$=FILESS(1, 
“TEXT") :GOSUB S3:1F F$="" TŒN F 
$=CB$ : RETURN 

CPEN"1",3,F$:L-I0F (3) :LIF L>960 THE 
N BEBP:1=960 

CB$=INPUTS (L, 3) :CLOSR 3:C4=0:GOSUB 

SPE:GOSUB T30:RETURW 

°M ode “Préparation Envoi", menu 

“Fichier” et article “Enregistrer”. 

S38:CB$=-EDIT${(1) :L=LEN(CBS) :IF L=0 
THEN REPP : RETURN 

IF L>960 THEN L-960:BEEP:C4=L:G$=" 
960*:CB$=LEFTS (CBS,L) :GOSUB T30 

IF F$<>°" THEN 539 

IVITCURSOR:F$=-FILESS$ (0) 

160 IF F$="" THEN RETURN 

GOSUB 53 

161 OPEN"o",3,FS:NAME F$ AS F$,"TE 
XT"“:GOTO 162 

S39:OPEN"0",3,F$ 

162 PRINT#3,CBS: 

163 CLOSE 3 

164 RETURN 

*M enu “Fichier” en mode “Stockage”. 

S50:0N M1 GOSUB S46,547,527,548,S2 
8: RETURN 

Menu “Chronnmäre” en mode 

“Stockage”. 

S54:ON M1 GOSUB S51,S52,MA,S53:RET 
URN 

+ Menu “Liaison” en mode “Stockage”. 

S59:0N M1 GOSUB 556,555,557,S58:RE 
TURN 

- Menu “Mode”, article “Stockage”. 

S41:GOSUB Tl4i:GOS0B Tldo:DIM A! (T 
22),I({T22),V(2}:GOSUB S60:C5=-1 : 
GOSUB S4:CS=0:K=1:GOSUB T98 :RETU 
EN 


+ Meru “Mode”, æ ticle “Consultation” , 

S42:GOSUB Tl4o:DIM A! (T22),1(T22), 
V(2):PRINT#:,A25;:GOSUB S60:WIND 
ON 1,"",(20,50)-(156,240),4:GOS0 
B S61:FOR 1-0 TO 5:BUTTON I+1,0, 
B$(1),(8,8+25*1)-(128,26+25#1):N 
EXT:B7-0:B9=0:K=-2:GOSUB T98:GOSU 
B T]11:RETURN 

+ Menu “Mode”, article “Copie d'écran”. 

S43:GOSUB Tl14i:GOSUB Tl4o:DIM A!(2 
},1(2),V(492) :GOSUB S60:WINDOW 1 
5"", (20,32)-(264, 324), 4:WIDTEH 41 
:TEXTFONT 4:TEXIMODE 1:TEXTSIZE 
9:K=1:GOS0B T98 :BUTTON 1,0, "“Rèce 
ption de copies active…", (2,274) 
—(242,289}),2:GOSUB S25:V(0}=0:RE 
TURN 

+ Menu “Mode”, æticle 

“Prépar ivEnvoi" . 

S44:GOSUB Tl4o:D1M A!(2),1(2),V(2) 
:GOS0B S60:C4=0:NINDOW 1,"", (20, 
50)-(411, 324),4:GOSUB S61:WIDTH 
80:K=3:GOSUB T98:BUTIONW 1,1, “Nom 
bre de caractères", {2,23)-(163,4 
2) :BUTTON 2,1,"Envoi®, (228,23)-( 
389,42) :CB$="“":GOSUB T30:RETURN 


+ Mode "Stockage" ,merw “Fichier" « 

article “Nouveau”. 

S46:GOSUB Tl:IF DA=0 THEN B5-0:GOS 
UB S24:K-0:GOSUB T98:E7=-1 

RETURN 





-Mode “Stockage”, menu “Fichier” et 

ac le “Ouvrÿ”. 

S47:GOSUB S62:1P DA=0 THEN K-=4:G08 
uB T98 

RETURN 

+ Mode “Stockage”, mer “Fichier” et 

ærticle “Enregisrerer”. 

S27:1P DE THEN DE-0:ERASERECT VRP 
TR(O(0)) ELSE DE=-1:PUT(195,14), 
L, PSET 

MEND 3, 3, ABS (DE) +1:RETURN 

-Mode "Stockage", menu “Fichier” at 

arücle “Ferrer”. 

S48:IF B5 THEN ERROR 241 @LSE GOSU 
B 596 

110 CLOSE 3:F2$=F$4+".T" 

111 OPEN"R",3,F2$S:NAME F2$ AS F2$, 
"mtlT":FIELD 3,4 AS A3$,2 AS A4$ 
:LSET A4$-MKI$(B6):LSET A35=-MKS$ 
(123.4567) 

112 PUT 3,1:FOR 1=0 TO B6:LSET A3$ 
=MKS$ (A! (1)):LSET A4$-MKI$(I(I}) 
:PUT 3,1+2:NEXT:CLOSE 3 

S63:GOSUB S31:RRASERECT VARPTR (0 (0 
}):DE=0:F$="":K=1:GOSUB T98 :RETU 
EN 

+ Menu “Fichier”, article “Quitter”. 

S28:PRINT#1,A2$; :CLOSB:A!=VARPTR(T 
(56)):A!:A!=VARPTR(C(0)}:A!:SYST 
EM 

+ Mode “Stockage”, menu “Chronorètre” 

a æiicle “Départ atomalique”. 

SS1:IF Cé THEN MENU 4,1,1:C6-0:E7= 
-l ELSE MENU 4,1,2:C6-=-1 

RETURN 

+ Mode “Stockage”, meru “Chronomètre” 

et article "Déconnexion auomaiique” . 

SS2:IF A4 THEN MENU 4,2,1,CD$+"..": 
A4=0:RETURN 

1F DT THEN TIMER OFF 

Ad=-1:WINDOW 2,"", (32,62)-(222,134 
),-2:GOSUB S64:EDIT FIEID 1,A1$, 
(83,21)-(120,35),1,3:BUTTON 1,1, 
"OK*,(14,46)-(172,64):ON DIALOG 
GOSUB S6:DIALOG ON: INITCURSOR 

S9:GOTO 59 

S8:GOSUB S3:GOSUB S65:MENU 4,2,2,C 
D$+" /"#A1$+"/":ON DIALOG GOSUB 
S5:1IF DT THEN TDÆR ON 

RETURN 

+ Mode “Stockage”, menu “Chronomètre” 

a æticle “Mise à zéro”. 

S53:GOSUB S67:GOSUB 568:RETURN 

+ Menu “Liaison” et article “Connexion”. 

S56:PRINT#1,A6$;::RETURR 

+ Mode “Consultation”, menu “Liaison” et 

article “1200 bauds”. 

S57:IF DV THEN DV=0:V$="12":PRINT# 
1,CHR$(27) “:kd";:GOTO T99 

° Mode “Consultation”, menu “Liaison” et 

article “4800 bauds”. 

S58:1P DV=0 THEN DV=-1:V$="48":PRI 
NT#1,CHR$(27) “:kv"; 

T99:CLOSE 1:GOSUB Tl4c:MENU 5,3,DV 
+2:MENU 5,4,ABS (DV}+1:RETURN 

* Affichage et mise à jour du chronsrmètre. 

S22:A5eTIMER-B!-C7:IF A5=3600 THEN 

B'=TIMER:C7=0:A5=0 











S68:C8=AS\60:D4=A5 MOD 60:CR(0,0)= 
C8\10:CR(0,1)=C8 MOD 10:CR(0,2)= 
D4\10:CR(0,3)=D4 MOD 10:TEXTFACE 

0 

FOR K=0 TO 3:1IF CR(O,K)<>CR({1,K) © 
R C3 THEN CR(1,K)=-CR(0,K) :LINE( 
CR(2,K}, 22)-(CR(2,K})+6,30),30,BF 
:MOVETO CR(2,K})-9,31:PRINT CR(1, 
K); 

NEXT:RE TURN 


»° M ise à zéro du chronomètre. 

S67:IF DT TEEN B'-TIMER 

C!=0:C7=0:A5-0:FOR K=0 TO 3:CR(1,K 
}=-1 :NE XT: RETURN 

+ MarchelAsrét chronomèrre. 

MA:IF DT THEN TIMER OFF:MENU 4,3,1 
, "Marche":DT=0:C'=TIMER:€RASERREC 
T VARPTR(P(O)) :RETURN 

MENU 4,3,1,"Arrêt":DT=-1l:1F AS THE 
N C7=C7#(TIMER-C!) ELSE C7-0:B!= 
TIMER 

PAINTROUNDRECT VARPTR(P(0)),4,4:TI 
MER ON:RETURN 


° Action sur les bouiens “Marche! Arrêt” 
ou “Mise à zé0" du chronomèbe. 
S69:IF N=10 THEN GOSUB MA:RETURN 
GOSUB 567:GOSUB S68:RETURN 


+ Fenêtre pour choix du temps si 

déconrezion automatique. 

S64:GOSUB S61:TEXTFACE 0O:MOVETO 8, 
16:PRINT CD$:MOVETO 8, 33:PRINT"a 
u bout de”:MOVETO 126,33:PRINT"m 
inutes":PENSIZE 3,3:FRAMEROUNDRE 
CT VARPTR(O(0)),16,16:PENNORMAL: 
RETURN 


e Si événements dans la fenêtre pour choix 

du temps. 

S6:C2=DIALOG(0):IF C2<>1 AND C2<>6 
THEN RETURN 

EO$=EDITS$(1):1F LEN(ED$)>2 THEN S7 

D9=VAL(EDS) :IF D9<1 OR D9>59 THEN 
s7 

A1$=STRS$ (D9} :A1$=RIGETS (A1$,LEN(A1 
$)-1):A6=D9*60-1:WINDOW CLOSE 2: 
RETURN 58 

S7:BEEP:EDIT FIEID 1,A1$, (83,21}-({ 
120,35),1,3:RETURN 


+ Déconnexion. 

S55:PRINT#1,A25$;:RETURN 

-Met ‘off les articles du menu mode, sauf 

le mode courant quiest coché. 

S24:FOR 1-1 TO 4:MENU 1,1,2*ABS(1= 
A3) :NEXT:RETURN 


+ Met ‘on’ Les articles du menu mode, sauf 

Le mode courant qui est coché. 

S31:FOR. I=1 TO 4:MENU 1,1, (A3<>1)+ 
2 :NEXT : RETURN 


S93:PENSIZE 2,2:FRAMPROUNDRECT VAR 
PTR(Y(0)),16,16:PENNORMAL:PENPAT 
VARPTR(F(0)}:FRAMPRECT VARPTR(R 
(0}) :PENNORMBL 

S34:RRASEPRECT VARPTR(S(0) } :CB$=STR 
$(B7)+" /“+STR$ (B9)+" page":1F B 
9>1 THEN CB$-CB$+"s3" 

MOVEZO 8+(118-WIDTH (CBS))/2,178:PR 
DYT CB$; :RETURN 


+ Mise à jour du compteur de pages après 
action sur un bouton er mode 
“consultation” . 

S77:C1=DIALOG (1) 

S70:E1=--1:ON C1 GOSUB 571,572,573, 
574,575,576:GOS0B S78:GOSUB 534: 
GOSUB S33:RETURN 

871 :B7=1:RETURN 

S72:B7=B7-10:RETURN 

573 :B7=B7-1 :RETURN 

S74:B7=B7+1:E1=0:RETORN 

575:B7=B7+10:RETURN 

S76:B7=B9:RETURN 


+ État des boutons après consultation 

d'une page. 

S78:BUTTON 1,(B7=1)+1:BUTTON 2, (B7 
<11)+1:BUTTON 3, (B7=1) +1 :BUTTON 
4, (B7=B9) +1:BUTTON 5, ({B7+10) >B9 
)+1:BUTTON 6, (B7=B9)+1:RETURN 


« Lecture et envoi d'une page. 

S33:MENU OFF:CB$-"":A!-FRE(" “}:CB 
$=SPACES (I (B7-1)):A!=VARPTR(T(27 
)}:A! A!(B7-1),VARPTR (CBS) :MENU 
ON:IF T(64) THEN PRROR 254 

IF El THEN PRINT#1, CERS (12); 

PRINT#1,CB5; :RETURN 


+ Autorise les événements. 
S19:DIALOG ON:MENU ON:MOUSE ON:INI 
TCURSOR:RE TURN 


- Interdit les événements. 
S18:DIALOG STOP :MENU STOP :MOUSE OF 
F:GOSUB 53:RRTURN 


+ Fenêtre dumode “Stockage” 

S4:A3=1:WINDOW 1,"*,(20,50)-(428, 1 
86),4:GOSUB S61:WIDTH 80:1F C5=0 
TEEN GOSUB 565 

GOSUB 567:GOSU0E S68 :RETURN 


+ Ouverture d'un nouveau fichis en mode 

“Copie d'écran’. 

579:DA=0:F$=PILESS$(0) :GOSUB 53 

140 IF FS-*" TBEN DA=-1:BUTTON 1,0 
RETURN 

141 OPEN“o",3,FS:NAME FS AS FS,YTE 
XT":BUTTON 1, 1:B2=-1:RETURN 


- Traitement en mode “Copie d'écran”. 

S80:DIALOG STOP:IF E5-24 THEN LINE 
{1,1}-(243,269),30,BF:E5=0:MOVET 
O 2,10:BUTTON 1,0 

ES=INPUTS (1,2):IF ES TBEN 50 

IF E$-CER$ (19) THEN CB$-INPUT$(11, 
2):DIALOG ON:RETURN 

150 IF ES=H$ THEN E5-E5+1:IF ES=24 
TEEN T90 ELSE T89 

IF ASC(ES)>31 THEN 582 

DIALOG ON:RETURN 

S82:IF ES="{" THEN ES="é" 

IF E$="}" THEN E$-"è" 

IF E$-"Q" THEN ES-"à" 

IF E$="\" THEN ES="<c" 

IF ES$="""* THEN E$="\" 

IF ES="[* THEN ES=""" 

T89:PRINT ES;:GETPEN VARPTR(?L(0)) 
:IF PL(O}=263 AND PL(1)>237 THEN 
T88 

PRINT #3,E$;:Al=Al+1:V(0)=Al1-1:A!= 
VARPTR(V(1)}:PORB A!+Al-1,ASC(ES 
) 

IF A1<984 THEN DIALOG ON:RETURN 

T88:E5=24 


= “HS H 
$: :CB$=INPUTS (LOC(2),2) :BUTTON 1 
:1:B3-0:DIALOG ON:RETURN ELSE GO 
TO 582 

- Mise à jour de la fenêtre en node “Copie 

déoa. 

S83:PENPAT VARPTR(F(0}) :MOVETO 2,2 
70:LINETO 241,270:PENNORMAL:1F V 
(0) THEN V(0)=V(0)}+1:A!=VARPTR(U 
(0)}:A! VARPTR(V(0)}:V(0}=V(0)-1 

RETURN 


+ Mise à jour de laf enêtre en mode 

“PrpamavEnvoi . 

S84:LINE(2,2)-(388,20),,B:LINE(2,3 
}-(388,19),,B:MOVETO 6,16:PRINT" 
Fichier : “::IF F$=""* THEN PRINT 
“Sans titre”:GOTO T12 

I=INSTR(FS,":") :IS=RIGHTS (F$,LEN(F 
$)-1) 

IF WIDTH(1$)<320 THEN PRINT 15; :GO 
TO T12 

T13:15=LRFTS (IS,LEN(IS)-1):IF WIDT 
H(IS+".")>320 THEN T13 ELSE PRIN 
T'IS+"_"; 

T12:LINR(165,23)-(225,41),,B:LINE( 
165,24)-(225,40},,B:GOSUB S85:LI 
KE(2,44)-(388,271),,B:RETURN 


- Action sur un bouton en mode 

“Préparation Envoi”. 

S86:CB$-EDITS (1} :C4=LEN(CBS):GS$=8T 
R$ (C4) :G$=RIGBTS (G$, LEN(G$)-1):E 
6=-DIALOG(1):IF E6=1 THEN GOSUB 5 
85 :RETURN 

IF E6<>2 THEN RETURN 

FOR J=1 TO C4:N=ASC(MIDS(CBS,J,1)) 
:1F N>31 TEEN IF N<128 THEN PRIN 
T#1,CER$(N)::GOTO 587 

IF N-13 THEN N=6 

B4=-1:GOSUB 588:B4=0:IF N=6 TEEN À 
l=VARPTR{Z1(0)):A! 144 

587:A!-VARPTR(21(0)):A! G:NEXT:RET 
URN 


° Affichage du nombre de caractère en 

mode “Préparation Envoi". 

S85:LINE(166,25)-(224,39),30,BF:1F 
C4 THEN MOVETO 166+(58-WIDTH(GS 
)+\2,37:PRINT G$ 

RETURN 


° Initialisations pour chaque changement 

demode. 

S60:F$="":CLS:IF ST THEN DT=0:TIME 
R OFF 

MENU 1,A3,1:A3=M1:MENU 1,A3,2:RETU 
RN 


- Sous-progranre de traitement des 

ETES. 

S0:IF ERR-53 THEN RESUME NEXT 

IF ERR-254 THEN IF T(64)=--49 THEN 
RESUME NEXT 

WIVDOK 2,""“,(32,62)-(400,110),-2:W 
IDTH 80:GOSUB S61:TEXTFACE O:1F 
ERR=240 OR ERR=-241 THEN 589 

IC=-6047:GOSUB S16:PUT(8,8},X(0):I 
C=0:GOSUB S16:PUT(48,8),x(0) :MOV 
ETO 216,40:PRINT CC$; :MOVETO 96, 
17:IF ERR-254 THEN PRINT"Fichier 
d'index introuvable.";:GOTO S11 

IF ERR=57 THEN PRINT"Erreur d'entr 
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ées/sorties."::G0TO S1] SPE:LINE(3,4)-(387,18),30,BF:LINE ( BEQ.S 3 
IF ERR-61 THEN PRINT"Disquette sat 166,25)-(224,39),30,BF:RETURN MOVE EU 
urée. “;::G010 S11 798:FOR J-0 TO 4:MENU 3,J+1,22(K,J _n A 
IF ERR=70 THEN PRINT"Disquette pro ) :NEXT : RETURN T MOVE #10, (A3) 
tégée.“;:GOTO S11 a — BRA.S  @8 
PRINT*Erreur système."; é H 3 @i0 
S11:0ON A3 GOTO S12,513,514,S15 Source Clic.Asm Non MOVE #SFFFF, (A3) 
S12:PRINT" Enregistrement"; :MOVETO me ne er ee 10 
SORA PRNEEEnPOSRIEES "+080 | M Setliate an cts de tete E2 BSR 54 
S10:1F ERI,-12 THEN CLOSE 3:K1ILL : dans la fenêtre en mode “stockage” e2 BSR-S S2 
F$:RESUME 14 ; La routlre détecte uñe action sur ST 4(A3) 
IF ERL=-101 THEN F$="":RESUME 100 : des boutons et opère en conséquence, e3 CLR -(A7) 
IF ERL-110 OR &RL-111 THEN KILL F5 RC TAIDONS 
: .Trap  _GetMouse $A972 TST (A7)+ 
“RESUME 563 .Trap _PtInRect SABAD BEQ.S @5 
1F ERL-]112 THEN KILL FS$:CLOSE 3 :KI .Trap _Fewhandle SA122 PEA ES 
LL F25s:RESUME S63 .Trap _InvertPoly SA8C9 _GetMouse 
RESUME NEXT .Trap _Stl1ilDeun SA973 CLR — (A7) 
S13:GOSUB S10:IF ERL=121 TEEN CLOS ‘!r2P _InvertOval “AA LEA ES, Al 
Re sr -Trap _DisposHandle SAO23 MOVE.L (Al),-(SP) 
E S:RIIL F$+4".T':FS$="":RESOME 12  tiap JInvertRect SAB8A4 PEA 2(A2,D5.4) 
: _PtInRect 
RESUME NEXT LINK A6,#0 TST (A7}+ 
S14:GOSUB S510:IF ERL-130 THEN RESU mn. Du BEQ.S “ & 
MO A6), TST.B A 
ME NEXT MULU #56,D5 BNE.S 63 
IF ERL-]14] THEN F$="":RESUME 140 Fer s4 BRAS 02 
1F ERL-150 THEN RESUME 15 BSR s2 @4 TST.B 4 (A3) 
RESUME NEXT MOVER  #-1,D0 BEQ.S 03 
S15:GOSUB S10:1F ERL=161 TEEN Fs=" (| DBEA 9 0 Docel BSR:S ‘32 
a BSR s2 SF 4(A3) 
:RESOME 160 BSR s3 BRA.S e3 
IF ERL-}62 THEN CLOSE 3:RESOMR 164 BRA Fin es TST.B  4(A3) 
IF ERL=163 TEEN RESUME 164 El LINK A6,#0 BNE.S e6 
RESUME NEXF en ee. ,A2 DATE Fa 
. on 
S89:IC=-1:GOSUB S16:PUT(8,8),X(0):M _Cstitsase e6 RE: 
OVETO 216,4S:PRENT CCS::IP ERR-=2 MOVEO +9,D3 MOVE D4, (A3) 
41 THEN S90 MOVEQ  #a,D4 BSR-S 53 
WOVETO 48,17:PRINT“Maximum 64 page MOVEQ $0,D5 BRA.S Fin 
5, le fichier va":MOVETO 48,33:P (2? ER cn) ” EL 
“ê 1os.":GOSUB 510 :RESUM ee FR a 
RINT"être clos.": ë MOVE.L (A3),-(5P) PEA E4 
E NEXT PEA 2 (A2,D5) _InvertOval 
S90:MOVETO 44,10:CB$S=STR$ (BS)+" pa PtInRect RTS 
ge"+CS$(0, (B5=1)+1)+" contenai"+C TST CATI+ s3 MOVEA.L A4,A0 
$(1,(B5=1)+1)+" plus de 2000 car purs FA DS Se Ms 
u Pa # L 
actères,":PRINT CBS:MOVETO 48,26 Ana #1,D4 54 MOVEQ  #54,D0 
:CB$="elle"+CS (2, (BS=1)+1)+C$(3, DBRA D3, 2 _NewEandle 
(BS=1)+1)+" dû être scindée*+Cs$s( LEA E4,A1 LEA E4,Al 
4, (B5=1)+1) :PRINT CBS$:GOSUB S10: ru Een Fos ou (AL) 
M *L Al),4(A 
RESUME 110 , MOVE.L #$F0099, (A1) SUBQ #1,0(A1) 
S16:A!=VARPTR(W(O)):A! IC, VARPTR(X MOVE.L 4#52600A7,4{A1) SUBQ #1,2 (A1) 
(0) ) :RETURN BSR ss ADDQ 44,4(A2) 
s10:WBIL£Z MOUSE (0) :WEND:WBILE MOOS BNE,S  @3 ADDO 44,6(A1) 
E(0)=0:HEND:WINDOW CLOSE 2:IF ER Fee re _— A : PA 
LA - LA 
RPC TENUE MOVE  3192,6{A1) MOVEA.L (AO) ,AO 
GOSUB S31:RETURN BSR S5 MOVECQ #26,00 
S91:ON A3 GOSUB 592,593,S83,S84:RE BEQ.5  @10 el MOVE (A1) +, (AO) + 
TURN sT S(A3} DBRA DO,@1 
S1:RETURN 63 BSR 56 MOVEA.L (A4),A0 
ST 4(A3} ADDQ #1,10(A0) 
@4 ciR -(A7) ADDQ #1,14(A0) 
° Curseur en forme demorire. 7 rit 0) 
S3:A!=VARPTR(2(0))}:A! 4:RETURN TST (A9)+ ADDQ #1,36(A0) 
° Chicago 12 points. ee Ex Es #! me 
e 
S61:TRXTFONT 0:TRXTMODE 1:TEXTSIZE _Gethouse Fee 41.46(A0) 
12:RETURN BSR ss ADDQ #1,50(A0) 
+ Ouverturede l'interface COMI enertrée. + Le F- ee he, 
T14i:OPEN "COM1:"“+V$+"00,E,7,1" FO NE SU 2 LEX ES.A3 
R INPUF AS 2 LEN=1000:RETURN BRA.S 63 MOVE.L (A3),-(SP) 
ue . e5 TST.B 4(A3) PEA E4 
Ouverture de l'interface COM] en sortie. BÉoe fi aaace 
Tldo:OPEN "COMl:"+VS$+"00,E,7,1" FO nee 56 Tsr (AD)+ 
R OUTPUT AS 1:RETURN SF 4 (A3) RTS 
RFA BRA.S @4 s6 PER Eâ 
* Zone d'édüion pen le mode e6 TST.B  4(A3) _InvertRect 
Préparation Envoi”. BNE.S  @7 RTS 
T30:2DIT FIELD 1,CB$, (4,46)-(387,2 BRA.S  @10 E4 DC 0,0,0,0 
69 : RETURN @7 TST.B 5 (A3) E5 DC 0,0,0 
RE 
, 0 
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Source YO.Asm’ 


RRRRRÉRERRRRRRÉRRERÉRRRRERÉRRRRERAREE 


fermeture des fichiers {mode 


; 
; Routine d'ouverture, lecture et 
a 
; 


consultation), 


-Trap _Open 
-Trap _Read 
.Trap _Cliose 


Ouverturel 
LINK 
MOVEAÀ.L 
ADDQ.L 
MOVEQ 
MOVE .B 
LSL.L 
MOVE .B 
LSL.L 
MOVE .B 
LEA 
MOVEAÀ. L 
MOVEQ 

Boucle CLR 
DBRA 
MOVE.L 
_9pen 

Sortie LEA 
MOVE 
UNLK 
RTS 

Lecturel 
LINK 
LEA 
CLR.L 
MOVEAÀ .L 
MOVE .B 
LSL 
MOVE .B 
MOVE 
MOVEQ 
MOVE.B 
LSL.L 
MOVE.B 
LSL.L 
MOVE.B 
MOVE .L 
MOVE 
MOVE.L 
_Band 
BRA.S 

Fermeturel 
LINK 
LEA 
CLR.L 
_Close 
BRA.S 
Drapeau 

TaernponiO 
DCB.B 


SA0O00 
SA002 
$AOO1 


A6,4#0 
8(A6),A1 
#2,Al 
$0,D0 
(A1}+,D0 
#8,D0 
(Al)+,D0 
#8,D0 
(A1) ,D0 
Tampon1iO,AÛ 
AO,al 
#24,D1 
(Al)+ 
Dl,Boucle 
DO,18(A0) 


Drapeau,Al 
16(A0),(A1) 
A6 


A6,#0 
TamponiC,AO 
12(A0} 

8 (A6) ,Al 
(A1)+,D0 
#8,D0 

(Al) +,D0 
D0,38(A0) 
$0,D0 
(Al)+,D0 
48,D0 
(Al}+,D0 
#8,D0 
(Al),D0 
DO,32(A0) 
#1,44 (A0) 
12(A6),46(A0) 


Sortie 

A6, #0 
Tamponli©,AO 
12 (AO) 


Sortie 
DC 0 


50,0 





Source ‘Délai 


CEEERELELELELIILLLELIELLL LL LL LILI LIL) 


Reutine d'attente. Boucle pendant 


N est passé depuis le programme 


î 
; N interrubPtions vldéo. 
G 


Basic par la pile (entier). 


-Trap _TickCount $A975 
LINK A6,#0 
MOVE 8(A6),D3 
EXT.L D3 
SUBQ #4, SP 
_TickCount 
MOVE.L (SP) +,D4 
ADD.L D3,D4 

ê1 SUBQ f4, SP 
_TickCount 
CME.L (SP)+,D4 
BAI.S el 
UNLK A6 
RTS 


Source 


‘Conversion.Asm'’ 


zone “tampon”. 


ne ve Ne Ne ne Ne ve 6 Se ne ne 


à transmettre. 


LINK 
MOVE 
LEA 
MOVEQ 
LEA 
Beucle CMP.B 
BNE,S 
MOVE.L 
TST 
BEQ.S 
TST.B 
BEQ.S 
MOVE .B 
BRA.S 
Un MOVE .B 
BRA.S 
Deux MOVE .B 
BRA.S 
Non ADDQ.L 
DBRA 
SF 
Fin UNLK 
RTS 


Table 


DC.B 


HR ARR RER RSR RÉ RAR RAR ARR RAR AR ÉRRRRERÉ 


Roÿtine de conversion des 
cärèctères non ASCYI et des 
commandes Minitel, 

Le code du caractère ou de 
cermande est passé par la pile. 
La suite de caractères 
résultante est placée dans la 


Le premier octet de 1a zone 
indique le nombre de caractères 


A6, #0 
8(A6),D0 
Tampon,A8 
#31,D1 
Table,Al 
(A1),D0 
Non 

(A1), (AO) 
2 (A1) 

Un 

3 (A1) 
Deux 

#3; (AO) 
Fin 

#1, (AO) 
Fin 

#2, (AO) 
Fin 
#4,A1 
Dl:Boucle 
(A0) 

A6 


2 
; 
$88,519,541,561 
.4 
$89,519,543,561 
.e 
S8D,519,54B,$563 
6 
$8E,$19,542,565 
ce 
$8F,$19,$41,S65 
Le 

590, 519, 543, 565 
4 ét 
$91,$19,548,S65 
HR à 
$94,519,S43, $69 
ee 

595, 519, 548, 569 
Le" 

$99,S19, $43,$6F 
.œ 
S9A,519,548,56F 
et 
s9D,$19,$41,575 
ere 

$9E, $19, 543,575 
ù 
S9F,S19,S48,575 
SA1,$19,538,50€ 
ju£” 
SA3,$19,523,S00 
A 
SA4,519,527,500 
"6 
SA7,519,$7B,S00 
+ 
$31,$19,S$31,$00 
œ 

$CE, $19,S$6A, S00 
a 
$cF,$19,$7A, $00 
Le 

5D6, 519, 538, S00 
; E. Page 


DC.B $07,$0Db,500,$00 


; Eovoi 

DC.B $09,$13,541, $00 
; Retour 

DC.B $05,$13,S42,S00 
; Répétition 

DC.B $08,$13,543,S00 
5Guide 

DC,B $02,$13,544,500 
; Aovulation 

DC.B $03,$13,545,$00 
; Sommaire 

DC.B $01,$13,$46,S00 
:Correction 

DC.B $04,$13,547,500 
; Suite 

DC.B $06,$13,$48,500 
: ConnexiowFin 

DC.B $00,513,$49,$00 

Tampon DC.L 0 


Source MAJAsm' 


FRRRRRRRRRRRRRRSRRRARRRNRRRRRRRRRRERÉ 


Routine de mise à jour de 
la fenêtre de “cople 
d'écran”. 

Les caractères à afficher 
sont dans un tableau de 
variables entières. 
L'adresse du pretier 
élément est passé par la 


6 ne ne ve ve Se Se Se se ve 


pile. 

-Trap _Hovete SA893 

-Trap _DrawChar SA883 
LINK A6,#0 
MOVEO #-1,D3 
MOVEA.L S8(A6},A3 
MOVE (A3)+,D4 

CR AD #11,D3 
MOVE #2,-(5P) 
MOVE D3,-(SP) 
_Hoveto 

Boucle sUBQ #1,D4 
BMI.S Fin 
MOVEQ 40,D0 
MOVE.B (A3)+,D0 
CMPI.B #13,D0 
BEQ.S CR 
MOVE DO,-(SP) 
_DrawChar 
BRA.S Bovcle 

Fin UNLK A6 
RTS 





Vous avez un 
Macintosh, mais 
pas le Basic ? 


Sur la disquette 
d'accompagnement, 
vous trouverez un 
‘RUNTIME’ du 
Basic Microsoft 
pour utiliser 
normalement les 
programmes de la 
revue... 


"RS 
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Les programmes relatifs au 
Minitel que vous lirez dans ces 
pages, nécessitent une 
présentation sommaire des 
aspects sft et hard de nos 
terminaux télématiques (hard = 
matériel : il ne sera pas question 
de Minitel rose dans les lignes 
qui suivent !). 

Il peut être utile de rappeler dans 
ce préambule que, dans les zones 
desservies par l'annuaire 
électronique, le Minitel est gratuit 
ce qui donne un modem d'un 
rapport qualité/prix. 
incalculable. 


Le ‘hard’ 


Les programmes de ce numéro 
supposent que votre ordinateur 
est équipée d'une carte interface 
RS232, couratte sur nos micros 
mais incompatible directement 
avec la V28 du Minitel, c'est ce 
qui impose de fabriquer ou 
d'acheter le câble de liaison 
enrichi d'un petit montage 
inverseur. Ce petit montage est 
peu coûteux : 30,00 à 50,00 F 
selon les connecteurs utilisés, si 
vous le faites vous-même, 
environ 200,00 F chez l'une des 
nombreuses sociétés qui le 
proposent, Olitec* par exemple. 
En ce qui concerne le 
raccordement des appareils, il est 
important de veiller à ce que le 
Minitel soit isolé du secteur avant 
de brancher et débrancher. 

La prise péri-informatique à 
laquelle vous reliez votre Apple 
délivre et accepte des signaux à 
1200 bauds, valeur par défaut. 
La plupart des Minitels livré 
aujourd'hui disposent d'une 
touche FNCT qui permet, entre 
autres, d'effectuer des copies 
d'écran vers ladite prise : 
FNCT-I puis A ou bien FNCT-I 
puis F déclenche le processus, 
ANNULATION l'interrompt. 
Lors de ces copies d'écran, 
seuls les caractères ASCII sont 
transmis, les éventuels 
graphismes Vidéotex ne le sont 
pas. Pour changer la vitesse de 
transmission vers la prise : 


°_FNCT-P puis 3 donne 300 


bauds ; 

+ FNCT-P puis 4 donne 4800 
bauds ; 

° FNCT-P puis 1 donne 1200 
bauds. 


Les programmes qui suivent 
gèrent eux-mêmes les 
changements de vitesse, vous 
n'aurez donc pas à intervenir. 

La prise se fait l'écho en 
pennanence de ce que reçoit le 
Minitel, sauf lorsque vous 
l'inhibez en faisant FNCT-P puis 
I, seules les copies d'écran 
passent alors. 


Notons à l'attention de ceux qui 
se sentent une âme de 
‘télématiciens’, que le protocole 
utilisé sur cette prise perinet de 
s'adresser non seulement à une 
imprimante ou à un 
micro-ordinateur, mais également 
à un périphérique donné, parmi 
plusieurs autres branchés 
simultanément, 
presqu'AppleTalk... 


Dans ses échanges avec le réseau, 
votre terminal reçoit les 
informations à 1200 baudbs et les 
transmet à 75 ; les appareils livrés 
aujourd'hui sont tous 
retourmables (vitesses inversées). 


Le soft 


La gestion de l'écran du Minitel 


BÉBSRESESSANSENR 


i 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 : 


DECSÉECESSASFErE 


i 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 : 


ÉFÉLÉCELEELEETLT EL] 


le Mimitel 


n'est pas des plus simples : 
caractères ASCII (ABCD), 
polices ‘parallèles’ (BçàôæœŒ) et 
autres semi-graphiques, couleur 
de fond, couleur de caractère, 
masques. À joutons l'obligation 
d'écrire un espace de validation 
des changements d'attributs 
graphiques pour éclairer 
l'ensemble... Les programmes 
d'enregistrement Minitel de ce 
numéro stockent l'intégralité de 
ces informations (sans devoir les 
analyser) et lors de la 
consultation, vous retrouvez 
toutes vos couleurs. 


Notons également que les 
caractères que vous tapez au 
clavier de l'Apple sont transmis 
au Minitel, transmis à l'éventuel 
serveur en ligne, affichés à 
l'écran du Minitel puis transmis 
vers la prise où votre Apple 
pourra les recueillir pour les 
afficher. Lorsque votre Apple 
transmettra un texte à un serveur, 
le programme tiendra compte du 
débit et du temps nécessaire au 
serveur pour interpréter les codes 
spéciaux de type SUITE. 








Pour vos programmes, nous 
donnons en annexe la table de 
correspondance des caractères 
disponibles sur vos Apple avec 
ceux du mini-terminal ainsi que 
ses caractères semi-graphiques. 








: 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 


DISCÉELCSSTIsEun 


| 80 81 82 85 _… 85 En 1e 88 89 A0. 11 92 27 94 95: 


JEUX de caractères graphiques Vicéatex tascii décimen) 
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En attendant nos prochains  * Sarl Olitec - 20, rue de 
programmes de communications  Réménauville - 54000 NANCY 








ARS À ? 
via Minitel, ne manquez pas de Tél: 16 83 35 00 65 Pom S 
nous faire part de vos remarques Tarif : 225,00 F, pour Apple J[+, 
et suggestions.  //e, //c et Macintosh. vOusS pro pose 
Table de correspondance Dm. 000 LES "y 1 Pr 
Li ‘d' 100 100 100 ominos 
Mac ‘e” 101 101 101 
Apple // ‘F 102 102 102 
Minitel LEURS 
x ‘’ 105 105 105 Apple ][+, lle, lc 
| 32 32 52 ‘106 106 106 
| sf se 33 . ‘k' 107 107 107 _ y 
ni ‘108 108 108 LerTy urie 
‘#35 35 m° 109 109 109 ds 
8" 36 36 36 ” HO uo 10 
: 7 : 4 ot IL 111 NA 
“& tb 112 112 112 Er £ £ 
“39 39 39 D 13 03 113 Il est inutile de présenté 
Ÿ 41 A4 dr RC le jeu de dominos; 
#42 42 42 16 lé Hé celui-ci bénéficie d'un 
4 0 43 43: 43 40% © 19 M7 y . SR 
5 # 4 4 #18 118 18 graphisme très soigné 
- ‘wW 119 119 119 : 
mo 4 4 46 0 LE DU Lu (en couleur si vous 
Le 0 TA 1 121 i k 
0 48 48 48 >, à D disposez d une carte 
1 49 49 49 {183 123 * Chat Mauve") et les 
2° 50 50 50 Ÿ 124 124 : 
nine ‘F 125 125 + messages transmis par le 
4 ‘126 126 * 
$ 5 % à di H7 17 17 à programme sont, au 
a 136 64 25 65 97 i i 
USE a CE CE Se choix, en Français, en 
‘8 56 56 56 © A1 @ 2577 5 Italien, en Allemand ou 
BU 5 «Sn 5 ‘€ 142 123 25 66 101 . 
58 58 58 & 143 125 25 65 101 en Anglais. 
Nr S9 359: 39 ‘é 144 25 67 101 
‘< 60 60 60 ‘& 145 25 72 101 
"(61 61 61 D 148 25 67 10$ 
ts" “62 “62 (62 “149 25 72 105 
% 6 6, 6 ‘6’ 158 25 67 
‘@’ 64 64 ‘# 154 >s 72, 111 a 7 
"A" 65 65 65 ‘à 157 124 25 65 17 
‘B' 66 66 66 d 158 25 67 117 F 
© 67 67 61 d” 159 25 7e M7 | 
‘D’ 68 68 68 “* 161 91 25 48 (À 
‘E 69 69 69 ww 163 35 25 æ li 
‘F 70 70 70 ‘ 164 93 25 39 
Gt 0H Mon 7 B 167 25 123 f 
EH D À ‘t"  177 25 49 
Tu UD ‘Œ’ 206 25 106 
“0. 74 CA 0, 74 ‘“æ 207 25 122 
HV. 95 © 7 25 56 
LOT 76. ve 
‘M' 77 11 17 sa 0 
N°7 78 78 78 7 25 45 
‘O' 79 79 79 + 25 46 
‘P' 80 80 80 pe 25 47 
R #2 42 82 ee ae 
R 4 25 61 
:S 83 8 83 Le © 
T' 84 84 84 BRK 0 
‘U” 85 85 25 
VV! 86 86 86 asee Bu 
Sn nvoi en 
We 87 87 87 face 19 66 
e Répétition 19 67 
Y' 89 89 89 are 19 68 
‘Z' 90 90 90 Pi 
ee oi 91 Annulation 19 69 
92 92 Sommaire 19 70 
93 93 Correction 19 71 80.00 F TTC 
UE Suite 19 72 
Le os S Connexion/Fin 19 89 franco 
D 96 96 9,6 + + Indque quiecarocière est différent, Bon de commande 
‘a 97 97 97 mais il exisie. Par exemple, le\ du 74 
‘b' 98 98 98 Minitel correspons au e ‘y du FAQ age 
per E 





EE EEE EEE 
54 Pom's n° 27 
| 





Christian Piard 


7” Le présent programme a pour but 
d'enregistrer des séquences de 
consultations Minitel, de les resti- 
tuer, d'enregistrer et d'imprimer 
des écrans. Il a été conçu sur un 
Apple /!e, et fonctionne également 
sur un ][+, un//c et même un IIcs 
avec, dans ce cas, un gain de 
temps sensible à l'affichage et à 
l'impression. Pour les ]{+, //e et 
IGs, la carte SSC est indispen- 
sable et doit être configurée 
comme ci-dessous. Elle sera 
installée dans l'un des slots, entre 
L'eéts: 


swi sw2 
on on 
ofrUOUOU0] [sr D00U000 
modem 
configuration 
de 13 carte 
terminal SSC Apple 


Dans un des mêmes slots, une 
imprimante poiuTa être connectée. 
Sur l'Apple //c, une routine fort 
pertinemment nommée PARAM 
configurera le port 2 pour le 
Minitel et le port 1 servira à 
l'imprimante. 

S'il vous manque l'interface 
Minitel ou celle pilotant 
l'imprimante, seules les fonctions 
liées au périphérique concerné 
seront indisponibles. Autrement 
dit il sera toujours possible 
d'enregistrer et de consulter des 
informations du Minitel sans 
imprimante ou d'imprimer des 
informations préalablement 
sauvegardées si votre interface 
série n'est pas connectée. 


La liaison 


Les interfaces RS 232 (SSC) et 
V28 (Minitel) délivrant des 
signaux série incompatibles, il 
vous faut prendre votre fer à 
souder pour réaliser le montage 
inverseur ci-contre. Les 
composants trouveront leur place 
dans l'une des prises ou dans un 
boîtier à part. 
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Mimitel & Apple / 


Si vous doutez de vos talents 
d'électronicien, vous pourrez 
vous adresser à l'une des 
nombreuses sociétés qui 
proposent un tel câble : citons par 
exemple la Sarl OLITEC* 


Les deux modes 
principaux 


Le programme proposé ici peut 
recevoir du Minitel, restituer sur 
Minitel, sauvegarder et recharger 
ce que nous appellerons par la 
suite séquences. Il s'agit des 
pages Minitel complètes, 
chargées de tous leurs attributs 
graphiques ; l'ordinateur enre- 
gistre dans ce mode tous les 
signaux disponibles sur la prise 
péri-informatique. La consul- 
tation de ces séquences se fait sur 
l'écran du Minitel, les pages 
réapparaissant exactement comme 
lors de l'enregistrement mais plus 
rapidement. 


Dans le mode que nous 
appellerons copies d'écran, 
l'ordinateur n'enregistrera que les 
codes ASCII délivrés par le 
Minitel lorsqu'il effectue un copie 
d'écran. Les écrans enregistrés 
dans ce mode ne sont pas 
restitués sur le Minitel mais sur 
votre imprimante ou bien 
transférés dans un fichier de type 
‘TEXT' pour exploitation future 
par un traitement de textes. Vous 
opterez pour ce mode dans la 
consultation de l'annuaire 
électronique, pour, par exemple 
récupérer des adresses. Le 
premier mode servira surtout 
pour consulter sans contrainte de 
temps des informations qui ne 
nécessitent pas l'impression. 
Rappelons que, sur les Minitel 
qui le permettent, la copie d'écran 
s'obtient par FNCT- puis F, ou 
ENCT:I puis A selon que vous 
désirez ou non les minuscules 
accentuées. 


Un mode auxiliaire 


De façon accessoire, le 
programme vous permet de 
transmettre au Minitel un fichier 
de type ‘TEXT' que vous aurez 
préparé en traitement de textes. 
Ceci évite de perdre un temps 
coûteux lorsqu'il s'agit de taper 
un texte à destination d'une 
messagerie ou pour utiliser à 
moindres frais le futur service des 
PTT, Postéclair/Minitel. 


Le programme 
Basic. 


ne joue pas activement dans la 
relation Minitel/Apple mais gère 
les différents menus, intercepte 
les éventuelles erreurs DOS, 
s'occupe des chargements et 
sauvegardes ainsi que de la 
consultation des copies d'écrans. 
Lors de vos adaptations de ce 
programme, il faut garder en 
mémoire les deux points 
suivants : 


+ la place disponible une fois les 
variables initialisées est très 
réduite ; 

+ il ne fonctionne tel quel 
qu'avec le DOS, mais comme 
pour le jeu SNAKE paru 
récemment, ne n'est pas un 
handicap puisque le 
programme est autonome. 


La partie 
assembleur. 

..est appelée par le Basic par 
l'ordre 

CALL AD,SL, COMMANDE 


AD étant l'adresse de chargement 
de la routine, SL étant le port du 
Minitel et COMMANDE prenant 
une valeur de 1 à 5. 


Commande = 1 


La routine est en mode 





RÉ | 








enregistrement de séquences, les 
caractères reçus sont stockés de 
$2600 à $95FF, chaque adresse 
de ‘début de page’ Minitel est 
stocké entre $2500 et $25FF. 
Une nouvelle page est repérée par 
l'utilisation d'une fonction 
Minitel (Correction, Annulation, 
Guide...), uniquement si au 
moins 100 caractères ont été 
reçus depuis le dernier appel à 
une fonction. 


Ainsi, à la restitution, l'ordinateur 
ne marquera pas de pause si 
CORRECTION n'a fait que 
supprimer un Caractère dans une 
zone de saisie maïs il s'arrêtera si 
CORRECTION vous a servi à 
revenir au menu de l'annuaire 
électronique. 


A 1500 caractères de la 
saturation, la routine émets 
quelques ‘bips’ et, à $95FF onse 
dirige vers le Basic qui propose la 
sauvegarde. 

La routine lit en permanence le 
clavier et se charge de ]la 
conversion des ordres clavier en 
codes Minitel (Envoi, Suite, 
Correction...) ainsi que du 
recodage des caractères non 
ASE ('é" ‘ee ‘à 0.) 


Commande = 2 


C'est le mode restitution des 
séquences, les caractères sont lus 
en mémoire, et envoyés au 
Minitel via la carte interface série, 
une pause étant marquée entre 
chaque ‘page’. 


Commande = 3 


C'est le mode ‘enregistrement de 
copies d'écran’. La prise n'étant 
par forcément inhibée sur le 
Minitel, les éventuels douze 
caractères destinés aux 
périphériques du Minitel sont 
supprimés. On compte par la 
suite les retours-chariot pour 
repérer la limite entre les 
différentes copies d'écran. 
Chaque fin de copies d'écran est 
repérée par un code $FE dans le 
stockage, et la fin des copies par 
$FF, 


Commande = 4 

La routine ne fait qu'émettre un 
“Bip” plus agréable que l'habituel 
CTRL-G. 


Réalisez le câble interface, 


œ -J Oo OR C2 M 2 


Faites ‘RUN MINBAS. 


Le mode d'emploi ci-contre et les menus vous guideront.…. 





Commande =5 


Ce mode est utilisé pour l'envoi 
d'un fichier 'TEXT’ au Minitel : 
La routine prend le caractère que 
le Basic a stocké en $6, 
éventuellement le recode (cas des 
“é ‘e ‘ç” ‘à’ ‘ù”.…) et l'envoie au 


Minitel. 


En fin de routine sont installés les 
habituels octets de correction du 
bug de l'ON ERR. 


Sur le//c 


La carte série est réglé à 1200 
bauds, parité paire, 7 bits de 
données, 1 bit de stop à l'aide de 
CONFIG. Les trois octets 
nécessaires sont installés dans la 
mémoire principale dans un ‘trou’ 
de la mémoire-écran, puis 
transférés en mémoire auxiliaire 
par MOVEAUX. 





Mode d'emploi 


L'ensemble des choix dans les 
menus se fait par l'utilisation de 
l'une des quatre flèches, ESC 
signifie abandon et provoque le 
retour au menu précédent. On 
accepte l'option visée par la 
flèche à l'intérieur d'un menu 
avec RETURN. 


La première étape, indispensable, 
consiste à définir la configuration 
pour indiquer les numéros de 
ports de la SSC reliée Minitel et 
de l'imprimante. Par défaut, il est 
prévu 2 et 1. Vous changerez ce 
choix par défaut en modifiant la 
ligne Basic n° 20 (SL est le port 
Minitel et SI le port Imprimante). 


Comment faire ? 


Vous avez un // ? passez à l'étape 4 

Corfigurez la carte Série Apple SSC comme indiqué, 

Vous avez la disquette Pom's ? passez à l'étape 8 

Saisissez et sauvegardez le programme Basic {sur disquette DOS), 
Saisissez et sauvegardez le code MINITEL, 

Vous avez un Apple //c ? saisissez et sauvegardez le code PARAM, 






Minitel Vers Apple 


Enregistrement de 
séquences 


NENU GENERAL, 


*--> NINITEL VERS APPLE 
CONSULTATION 
CHARGER 
SAUVEGARDER 
OPTIONS 
ENVOI D'UN FICHIER 
FIN 


I1 faut se servir du clavier de 
l'Apple // en lieu et place de celui 
du Minitel. Ceci permettra à 
l'ordinateur de repérer les débuts 
de ‘page’. Un rappel des touches 
de fonction est alors affiché : 


CTRL-X = Annulation 
DEL ou CTRL-C= Correction, 
TABouCTRL-I= Suite, 
RETURN = Envoi... 
POM's NINITEL/APPLE PON'5 
*--> SECUEKCES 
ESC interrompt de façon 


provisoire l'enregistrement, une 
touche quelconque relance alors 
l'enregistrement, sauf ESC qui 
l'interrompt définitivement, le 
Basic vous proposant de 
sauvegarder. Si la sauvegarde 
n'est pas exécutée (vous avez 


ES SC SE LE SE 
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répondu par un simple RETURN 
au nom de fichier), l'option 
SAUVEGARDE du menu 
principal sera en vidéo inverse, à 
titre de rappel. 


Enregistrement de 

copies d'écran 

Avant chacune d'elles, vous 
devrez faire RETURN, l'Apple 
comptant alors les retours-chariot 
qui passent... Si la copie d'écran 
est interrompue par ANNU- 
LATION sur le Minitel ou bien si 
vous avez fait RETURN après le 
début de la copie, faites ESC 
pour indiquer la fin de page ; 
l'Apple en attend alors une 
nouvelle. ESC perinet d'aban- 
donner ce mode et, bien entendu, 
la sauvegarde est proposée. 


Consultation 


Séquences 


La consultation se fera sur le 
Minitel. Si ce dernier est récent, 
vous pourrez optez dans le 
dernier menu pour 4800 bauds, 
l'affichage devient alors très 
agréable. Les flèches vous 
permettent d'avancer et de reculer 
dans la consultation, et ESC de 
conclure. 


Copies d'écran 

La consultation consistera en 
l'impression ou la création d'un 
fichier ‘TEXT’. Sur ImageWriter/ 
DMP, l'impression se fait en Élite 
élargi (code de contrôle à la fm de 
la ligne 795, à adapter à votre 
imprimante). Sur les autres 
imprimantes, aucun code de 
contrôle n'est envoyé. 

Vous pourrez également créer un 
fichier ‘TEXT” à partir de vos 
copies d'écran. Dans les deux 
cas, les copies sont séparées par 
une ligne de 40 ‘—. 


Transmettre à l'ordinateur des 
séquences alors qu'il attend des 
copies d'écrans provoquera des 
effets étonnants lors d'une 
éventuelle consultation à 
l'imprimante. 


EE  . 
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Chargement 


CEARGER 


“*--> LECTEUR 1 
LECTEUR 2 
RETOUR 


Le nom de fichier demandé peut 
toujours être remplacé par un ‘?’ 
pour obtenir le catalogue des 
disquettes. Un simple Retour- 
Chariot signifie que vous 
renoncez à l'opération mais, bien 
sûr, vous pourrez renoncez à 
renoncer... Le choix du lecteur 
vous est proposé après saisie du 
nom et, lors de l'opération, les 
différentes erreurs disques sont 
interceptées. Selon leur type 
(séquences ou copies d'écran), 
les noms de fichiers sont préf'ixés 
par ‘S.” ou ‘C.’. Ces préfixes ne 
servent qu'à vous repérer dans le 
catalogue de la disquette ; il est 
inutile de les taper car ils seraient 
simplement ignorés. 


Sauvegarde 


C'est le menu par lequel vous 
passez obligatoirement à l'issue 
d'un enregistrement. Mêmes 
conventions que pour le 
chargement. 


Options 


*--> PORT MINITEL 
PORT? IMPRIMANTE 
RE?OUR 


Ce menu vous perinet de changer 
les numéros de port par défaut 
pour les Minitel et Imprimante. Si 
aucune imprimante n'est 
connectée, il convient de mettre 
NEANT et non de laisser une 





autre valeur car les résultats d'une 
tentative d'impression sont. 
prévisibles. 


Envoi d'un fichier 


OPTIONS 


PORT 
*--> PORT 


Ce fichier doit être de type 
TEXT, certainement créé par un 
traitement de textes. Les 
Retours-Chariot [CHRS$(13)] 
sont transformés (ligne 4440) en 
les codes 19 72 qui équivalent à 
SUITE pour le Minitel, les 
serveurs attendant généralement 
ce code pour passer à la ligne. La 
boucle de délai qui suit perinet 
audit serveur d'exploiter ce code 


SUITE. G 


Source ‘T.Param 


(uniquement Wc) 
1 A eu ee se en ee en en ie ue 
2 * Paramètres pour 
3 * port 2 du //c, 
4 *# $S38, S6B, $61 daïs 
5 * les octects $47C à 
6 * S47E en mémoire 
7 * auxiliaire. 
8 fn 
9 ORG $300 
10 ©CBJ S$S300 
11 
12 LDA #S38 
pe) STA S$S47C 
14 LDA f$S6B 
25 STA S47D 
16 LDA #$81 
17 STA S$SA47E 
18 LDA #$7C 
19 STA S$S42 
29 STA $3C 
21 LDA #4 
22 STA $43 
23 STA S3D 
24 LDA  #S7E 
25 STÀA S3E 
26 LDA #4 
27 STA S3F 
28 SEC 
29 UMP $C311 








Source ‘T.MINITEL’ 
Assembleur Big Mac 


Note : ce source est sauvegardé, sur la 
disquette d'accompagnement Pom's 27, 
enformat ‘TEXT pour permettre la 
récupération par votre assembleur. 


* 


* 


© & D JU où Un 8 U NA + 
L2 


LST OFF 
1 ORG  $204A 
11 
12 CARAC = 56 
13 STOCK = $7 
14 PAGE … $18 
15 DRAP = $1A 
16 COMPT = $1C 
17 DRAP1 = S1E 
18 CH = $24 
19 CV = $25 
20 PILE ad $FE 
21 STATUS = $EB 
22 DATA = $ED 
23 SLOT . SFC 
24 KBD = $Co00 
25 STROBE = $CO10 
26 HP = $C030 
27 STROUT ” SOB3A 
28 GETBYT ” $SE6F5 
29 BASCALC = $FBC1 
30 CLREOL = SFC9C 
31 KEYIN = $SFDOC 
32 COUT = $FDED 
33 
94 N==mam----=-----2=.-- 
35 * Récupère n° slot et 
36 * n° commande 
SR EC 
38 
39 JSR GETBYT 
40 TXA 
41 PHA 
42 CLC 
43 ADC #$C0 
44 STA SLOT+1 
45 PLA 
46 ASL 
47 ASL 
48 ASL 
49 ASL 
50 ADC 4#$89 
51 STA STATUS 
52 STA DATA 
53 DEC DATA 
54 LDA 4#$C0 
55 STA STATUS+1 
56 STA DATA+1 
57 LDA #0 
58 STA SLOT 
59 JSR GETBYT 


58 


Minitel/Apple 


Syntaxe : 
CALL 8266, SLOT, COM 


DEB1 


DEB2 


DEB3 


ENREG 


BCL 


SSsC 


SS1 


SS2 


SS3 


CIAV 


#1 
ENREG 
#42 

DEB1 
LECTURE 
#5 

DEB2 
COPIECR 
#4 


‘ DEB3 


BEEP 
#45 
ERR 
ENC2AR 


#<ME 
STROUT 


MESEN 
INITAD 


KBD 

CLAV 

#0 

(STATUS, X} 
#08 

BCL 


(DATA, x) 
#0 
{STOCK}, Y 
##10000000 
$7F7 
STOCK 
SS2 
STOCK+1 
STOCK+1 
#596 
SS2 
STOCK 
STOCK +1 


f<MM 
STROUT 
KEYIN 
FINER 


COMPT 
SS3 
COMPT+1 


BCL 


STROBE 
KBD 
#$80 
CARAC 
#F$9B 
Si 


129 
130 
131 

132 
133 
1349 

135 
136 
137 
138 

139 
140 
141 

192 
143 

194 
145 
146 

147 
148 
149 
150 
151 

152 
153 
154 

155 

156 
157 
158 
159 
160 
161 

162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
A7. 
178 
1739 
180 
181 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 
195 
196 
497 


FINER 


Si 


BCL1 


OK 


OK1 


MODE1 00 


MO 
MO2 


PLDE100 


PLI1 
PL2 





VTAB 
#>MO 
#<MO 
STROUT 
KEYIN 
#59B 
FINER 
MESEN 
BCL 

#0 
#$FF 
(STOCK) ,Y 


(PAGE) , Y 


BCLI 


#45 
SUITE 
#0 
COMPT+1 
PLDE 100 
COMPT 
#100 
PLDE 100 


fPAGE), Y 
(PAGE), Y 
MO1 


MO2 


COMPT+1 
(PAGE) , Y 
(PAGE) ,Y 
CONTP 
INITCO 
SUITE 


COMET 
(PAGE), Ÿ 


PLI1 


PL2 


COMPT+1 
(PAGE), Y 
PAGE 
PAGE 

#1 

(PAGE) ,Y 
CONTP 
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198 DEY 

199 PLA 

200 STA (PAGE),Y 
201 JSR INITCO 
282 SUITE 

203 LDY #3 

204 BCL2 INX 

205 LDA TABLE,X 
206 BEC FINCH 
207 STA CARAC 
208 JSR ENVOI 
209 DEY 

210 BNE BCL2 

211 FINCH 

222 JMP  BCL 

213 FIN 

214 JSR ENVOI 
215 JMP  BCL 

216 

PTIT RSE==E === 
218 * Mode lecture 

219 #-----__—————- 
220 

221 MESLEC 

222 JSR VTAB 

223 LDY #>ML 

224 LOA #<ML 

225 UMP  STROUT 
226 LECTURE 

227 JSR MESLEC 
228 JSR CLS 

229 LOY #0 

230 STY PAGE 

231 STY STOCK 
232 LDA 4525 

233 STA PAGE+I1 
234 STA STOCK+1 
235 INC STOCK+1 
236 BNE LEC 
237.BE 

238 LDY #1 

239 LDA  fPAGE)J,Y 
240 CMP  #$PF 

241 BEQ DERPAGE 
242 STA STOCK+1 
243 DEY 

244 LDA fPAGE),Y 
245 STA STOCK 
246 LEC INC PAGE 

247 INC PAGE 

248 LEC1 

249 LDY #0 

250 LDA  (STOCK),Y 
251 BMI DERPAGE 
252 STA CARAC 
253 ORA ##%10000000 
254 STA $7F? 

229 JSR ENVOI 
256 INC STOCK 
257 BNE LECO 

258 INC STOCK+1 
259 LECO LDY #0 

260 LDA STOCK 
261 CMP (PAGE) ,Y 
262 BNE LEC1 

263 INY 

264 LDA STOCK+1 
265 CMP  (PAGE),Y 


266 BNE  LEC1 





Pom's n° 27 


267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 

292 
293 
294 
295 
296 
297 
298 
299 
300 
301 

302 
303 

304 

305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 

322 

323 
324 
325 
326 
327 

328 
329 
330 
331 

332 
333 
334 
335 


TOUCH 
LDA  KBD 
BPL TOUCA 
BIT STROBE 
CAP  #59B 
BEQ FINFICH 
CMP  #$8À 
BEQ MOINS 
CMP #$88 
BEQ MOINS 
CMP  #$95 
BEQ PC 
CMP #$8B 
BEQ PC 

M1 JSR BEEP 
JMP  TOUCH 

MOINS 


LDA PAGE 
SBC #2 
BEQ PRPAGE 


SBC #2 
STA PAGE 
JSR CLS 
JMP PC 
PRPAGE 
JSR BEEP 
UJSR VTAB 
LDY F1P 
LOA #f<MP 
JSR STROUT 
UMP DI 


DERPAGE 


JSR VTAB 
LDY 4#>MD 
LDA  #<MD 
JSR STROUT 
D1 JSR KEYIN 
JSR MESLEC 
JMP  TOUCH 
FINFICH 
JSR VTAB 
LDY #>MF 
LDA #f<MF 
JSR STROUT 
JSR KEYIN 
AND #%#11011111 
CMP $#"0" 
BEQ F 
SR MESLEC 
JMP  TOUCH 


* Mode enregistrement 
* de copies d'écran 


COPIECR 
JSR INITAD 
JMP PAUSE 
co JSR GETDATA 
BCC SSCO0 
Cce2 CMP #$1B 
BNE COI 
JUMP PAUSE 


336 SSCO 
337 

338 

339 

340 

341 SSCO1 
342 

343 

344 

345 SSCO0 
346 

347 

348 

349 

350 SsCO2 
351 

352 

353 

354 

355 

356 SSCO22 
357 

358 

359 

360 

361 

362 

363 

364 

365 

366 SSC03 
367 

368 

369 

370 

371 

372 

373 

374 SsC2 
375 

376 

277 

378 

379 

380 

381 

382 SSC3 
383 

384 PAUSE 
385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 PAUSE2 
398 

399 

400 

401 

402 

403 

404 


CARAC 
#19 
Ssco0 
#12 
GETDATA 
co2 


SsCoi 


CARAC 
#13 

Ssc02 
DRAPI 





CARAC 
#23 
SSC022 
#520 

Co 

#0 
(STOCK), Ÿ 
#+10000000 
SET 
STOCK 
SSC2 
STOCK+1 
STOCK+1 
4596 
SSC2 
STOCK 
STOCK+1 
UTAB 
FM 
#<144 
STROUT 
KEYIN 
FINCOPIE 





DRAP1I 
SSC3 
DRAP1 
DRAP 
DRAP 
#24 
PAUSE 


co 


STOCK+1 
CONTP 
#50 
#$FE 
fSTOCK) , Y 
STOCK 
PAUSE2 
STOCK+#1 
STOCK#+1 
4596 
PAUSE2 
SSCO3 
vTAB 
#>MA 
#<MA 
STROUT 
KEYIN 
#$5B 
FINC@PIE 
INIDRAP 
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ES © Tr + tr 





405 JSR MESECR 
406 UMP  COI 
407 GETDATA BIT KBD 
408 BMI GETI 
409 LDX #0 
410 LDA (STATUS, X) 
411 AND #8 
412 BEC GETDATA 
413 LDA  (OATA,X) 
414 STA CARAC 

| 415 CLC 

| 416 RTS 
417 GETI BIT STROBE 
418 LDA KBD 
419 SEC 
420 RTS 
421 MESECR 
422 USR VTAB 
423 LDY #>MC 
424 LDA  #<MC 
425 JMP  STROUT 
426 FINCOPIE 
427 LDY #0 
428 LDA #$FF 
429 STA (STOCK) ,Y 
430 JMP  VTAB 
431 INIDRAP 
432 LDA #0 
433 STA DRAP 
434 STA DRAP1 
435 RTS 
436 
DIT FESSES EE SE 
438 * Caractère --> SSC 
999 ess eee = 
440 
441 ENVOI 
442 TXA 
443 PHA 
444 ENVOII LDX #0 
445 LDA (STATUS, X} 
446 AND #$10 
447 BEQ ENVOI! 
448 LDA CARAC 
449 STA (DATA, X) 
450 PIA 
451 TAX 
452 RTS 
453 
POA NE E==-SE EEE SE 
455 * Init les compteurs 
456 #----- 
457 
458 INITAD 
459 LDA #0 
460 STA STOCK 
461 STA DRAP 
462 STA  DRAP1 
463 STA PAGE 
464 LDA #$526 
465 STA STOCK+I 
466 STA PAGE+1 
467 DEC PAGE#I 
468 LDY #0 
469 LDA #0 
470 STA (PAGE),7Y 
471 LDA #526 
472 INY 
473 STA  (PAGE),Y 


974 
475 
476 
477 
478 
479 
480 
4681 

482 
483 
484 
485 


USR INITCO 


RTS 

INITCO 
LDA #0 
STA COMPT 
STA COMPT+1 
RTS 


LDY #$40 


CLS 
LDA #12 
STA CARAC 
JSR ENVOI 
RTS 


LDA #0 

STA CH 

LDA #23 

STA CV 

USR BASCALC 


UMP  CLREOL 


543 
544 
545 
546 
547 
548 
549 
550 
551 

552 
553 
554 
555 
556 
557 
558 
559 
560 
561 

562 
563 
564 
565 
566 
567 
568 
569 
570 
571 

572 


573 
574 


2179 
576 


577 
578 


579 
580 


581 
582 


583 
584 


585 
586 


587 
588 


589 
590 
591 
592 
593 
594 
595 
596 
597 
598 


ENCAR 
LDA 
ORA 
STA 
LDX 
ENCARI LDA 
BEQ 
CMP 
BEQ 
INX 
INX 
INX 
INX 
BNE 
FINCAR JMP 
OKCAR LDY 
OKCARI INX 
LDA 
BEC 
STA 
JSR 
DEY 
BNE 
FINCARQO RTS 


ML ASC 
BRK 
ME ASC 
ERK 
MC ASC 
BRK 
MP ASC 
BRK 
MD ASC 
BRK 
#44 ASC 
BRK 
MO ASC 
BRK 
MF ASC 
ERK 
MA ASC 
BRK 


CARAC 
#3#10000000 
CARAC 

#0 

TABLE ,X 
FINCAR 
CARAC 
OKCAR 


ENCAR1 
ENVOI 
#3 


TABLE ,X 
FINCARO 
CARAC 
ENVOI 


OKCARI 


"MODE 
LECTURE" 


"MODE ENREGIS 
TREMENT" 


"MODE COPIE D 
"ECRAN" 


"PREMIERE PAG 
E <RETURN>" 


"DERNIERE PAG 
E <RETURN>" 


"MEMOIRE SATU 
REE, ENREGIS 
TREZ <RETURN 
>" 


"PAUSE. <ESC> 
POUR FINIR" 


"OK POUR FIN 
DE CONSULTA 
TION ?" 


"RETURN = COP 
IE, ESC = FI 
N 7 


* Correspondance codes 
* Apple /f - Minitel 


+ RC = Envoi 
DFB 


$8D,$13,$41,0 
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599 * Ctri-K = Connexion 617 DFB $82,5$13,$43,0 632 * *? 
600 DFB S8B,S1B, 539,5 618 * Ctrl-E = Fin de page 633 DFB SDD,$19,$27,0 
68 619 DFB $85,$0D,0, 0 634 * ù 
601 * Ctri-W = Deconnexion 620 * à 635 DFB SFC,S$19,$541,S 
602 DFB $97,$13,$49,0 621 DFB $CO0,519,$41,5 75 
603 * Ctri-I1 = Tab = Suite 61 636 DFB 0 
604 DFB $89,5$513,S$S48,0 622% € 637 2 
605 * Dei = Correction 623 DFB SDC,S$19,$54B,S 638 * Bug de l'ONERR GOTO 
606 DFB SFF,S513,547,0 63 639 == 
607 DFB $83,$13,547,0 624 * é 640 
608 * Ctri-S = Sommaire 625 DFB S$FB,S$19,542,S 641 PLA 
609 DFB $93,$13, 546, 0 65 642 TAY 
610 * Ctr1-G = Guide 626 * à 643 PLA 
611 DFB $87,$13,544,0 627 DFB SFD,S19,541,$ 644 LDX $DF 
612 * Ctri-X = Annulation 65 645 TXS 
613 DFB 598,513, 545,0 628 " 646 PHA 
614 * Ctri-R = Retour 629 DFB $DB, $19, $30,0 647 TYA 
615 DFB $92,$13,$42,0 630 * £ ou 4 648 PHA 
616 * Ctri-B = Répétition 631 DFB SA, 519, 523,0 649 RTS 
£ 3 
Programme MINBAS " CHR$ (34)"?" CHR$S (34): GOSUB 4000: I 
F NM$ = "" THEN 250 
1 PRINT CHR$ (21) 260 IF CT THEN CT = 0: GOTO 255 
2 ONERR GOTO 5000 270 GOSUB 6100 
5 PRINT CHR$ (4) "BLOADMINITEL 280 PRINT DS$"BLOAD"'NMS",A$2500":A0 = 1:LF 
10 HIMEM: 8265: TEXT : HOME : GOSUB 2000: = PEEK (43617) * 256 + PEEK (43616) + 
PRINT "POM'S" SPC( 9)"MINITEL/APPLE" SP 9471: POKE 8, INT (LF / 256): POKE 7,L 
C( 8)"POM'S";: GOSUB 2000: VTAB 22: GOS F - PEEK (8) * 256: GOSUB 4100:DK = A1 
UB 2000: VTAB 10: HTAB 10: POKE 34,4: P :FS = 0: GOTO 100 
OKE 35,21 Sauvegarder un fichier 
19, CH CUS PM AN EAIENRS EN DO IEEE 350 IF PEEK (9728) = 255 OR PEEK (9729) 
= 255 THEN CALL AD,SL,BE: HOME : PRINT 
20 DIM M1$(6),M2$(2),M3$(2),M4$(6),MS$(4), "RIEN À SAUVEGARDER <RETURN>": WAIT 49 


M$(6): GOSUB 1000:AD = 8266:SL = 2:EN = 
l:LE = 2:CE = 3:BE = 4:SI = 1: POKE 97 


28,255:D$ = (CHRS (13) + CHR$ (4):DR = b b 
0:D1$ = CHRS (4J:CU = 1 
Si {{c,paramètres de l'interface modem c 

30 IF PEEK (64435) = 6 AND PEEK (64448) 8 e 
= 0 THEN PRINT DS'"BRUNPARAM E _ a 
Menu principal 

100 FOR I = O0 TO 6:M$(I) = MIS(I): NEXT :C aoote Ile, //eou Dos 
H = AO:TT$S = "MENU GENERAL": GOSUB 1100 Rrsse 
:A0 = CH:A2 = O:CT = O0 

105 ON (CH = O OR CH = 5) AND SL = 6 GOTO 
4300 

110 ON CH + 1 GOTO 150,160,250,350,200,440 
0, 3000 

150 FOR I = O TO 2:MS$(I) = M?2$(I): NEXT :C 
H = A1:TT$ = M1S(A0): GOSUB 1100:A1 = C 
H: ON CH + 1 GOTO 400,500,100 

160 HOME : PRINT : IF PEEK (9728) = 255 © 
R PEEK (9729) = 255 THEN PRINT " RIEN 
A CONSULTER, FAITES RETURN...": CALL À 


D,SL,BE: GOSUB 6000:A0 = 2: GOTO 100 
170 GOTO 150 
Charger un fichier 
200 FOR I = O0 TO 2:M$(I) = M3${(I)J: NEXT :C 
H = A2:TT$ = M1$(4): GOSUB 1100:A2 = CH 
:A0 = 0: ON CH + 1 GOTO 600, 700, 100 
250 FOR I = O TO 2:M$(I) = M2$(I): NEXT :C 
H = AI:TTS = M1S(2): GOSUB 1100:A1 = CH 
252 ON A1 = 2 GOTO 100 
255 HOME : VTAB 8: PRINT NF$"A CHARGER OU 











Composants nécessaires : 2 transistors 2N2222, 2 résistances de 10 KQ, 1 de 18 KQ 
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62 


351 
352 


353 
359 


360 
370 
376 
378 
380 


400 


405 


410 


412 


415 
420 


425 
430 


450 


452 
455 


460 


470 


480 
500 


505 


915 
520 


530 


550 


555 
560 


152,128: POKE 49168, 0:GOTO 100 

FOR I = O TO 2:M$(I) = M2$(I): NEXT :C 
H = A1:TTS = M1$(3): GOSUB 1100:A1 = CH 
ON A1 = 2 GOTO 100 

IF Al < > DK THEN 4200 

HOME : VTAB 8: PRINT NF$"A SAUVEGARDER 
OU "“ CHR$ (34)"?" CHR$ (34) :GOSUB 4000 


: IF NM$ = "" THEN 350 

IF CT THEN CT = 0: GOTO 355 
GOSUB 6100 

IF DR THEN 380 

GOSUB 4100 


PRINT D$"BSAVE"NMS",AS$S2500, L'"'LF:A0 = 1 
:FS = 0: GOTO 100 
HOME : ON AO + 1 GOTO 405,450 


Recevoir une séquence 
PRINT : PRINT “ ENVOI : RETURN": 
PRINT : PRINT “ CORRECTION : CTRL-C/DEL 
“: PRINT “ ANNULATION : CTRL-X": PRINT 
dd SUITE : CTRL-I/TAB": PRINT “ REP 
ETITION : CTRL-E 

PRINT “ SOMMAIRE : CTRL-S": PRINT “ 

GUIDE : CTRL-G": PRINT " RETOUR : 

CTRL-R'": PRINT “ CONNEXION : CTRL-K": 
PRINT “FIN DE PAGE : CTRL-E" 

PRINT "DECONNEXION : CTRL-W": PRINT “ 

FIN : ESC 

GOSUB 7000 

CALL AD, SL,EN: PRINT D$S"PR#O": IF PEE 
K (9728) < > 255 THEN A1 = 0: GOSUB 41 
00:DR = 1:DK = O:FS = 1: GOTO 355 
DR = 0 

GOTO 100 

Consulter une séquence 

ON SL = 6 GOTO 4300: IF Al < > DK THE 
N 4200 

GOSUB 7000 
MS$(0) = “1200 BAUDS":M$(1) = "4800 BAUD 
S":M$(2) = M3$(2):I = 3:CH = BD: GOSUB 
1100: ON CH = 2 GOTO 150:BD = CH: ON BD 
GOSUB 4600 
HOME : PRINT : 
DE PAGE EN PAGE": PRINT " 

: ABANDONNER LA CONSULTATION 
CALL AD,SL,LE: PRINT DS"PR#0": ON BD G 
OSUB 4610 

GOTO 100 

HOME : ON AO + i GOTO 505,550 

Recevoir une copie d'écran 

PRINT : PRINT "MODE COPIE D'ECRAN": PR 
INT : PRINT : PRINT "FAIRE <RETURN> AVA 
NT CHAQUE COPIE": PRINT "<ESC> POUR FIN 
IR 

GOSUB 7000 


PRINT "“FLECHES : PASSER 
ESC 


CALL AD,SL,CE: PRINT D$S"PR#0": IF PEE 
K {9729) < > 255 THEN Al = l: GOSUB 41 
00:DR = l:DK = 1:FS = 1: GOTO 355 


DR = 0: GOTO 100 


Consulter une copie d'écran 
ON A1 < > DK GOTO 4200: FOR I = O TO 


3:MS$S(I) = M5$(I): NEXT :CH = A3:TTS = M 
1$(1) + “ - “ + M2$(1): GOSUB 1100:A3 = 
CA 


ON CH < 2 AND SI = 6 GOTO 4300 
ON A3 + 1 GOTO 750,750, 750,150 
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600 FOR I = O TO 6:M$(I) = M4$(I): NEXT :C 


H = SL - 1:TT$ = M1S$(4) + " - " + M3$(A 
2): GOSUB 1100: IF CH < 6 THEN SL = CH 
+1 


610 A2 = 2: GOTO 200 


700 FOR I = O TO 6:MS$(I) = M4$(I): NEXT :C 


H = SI - 1:TT$ = M1S$(4) + " - “ + M3$(A 
2): GOSUB 1100: IF CH < 6 THEN SI = CH 
+ 2 


710 A2 = 2: GOTO 200 

750 ON A3 + 1 GOTO 775,775, 760 

760 HOME : VTAB 8: PRINT NF$"'TEXT' RECEPT 
EUR OU “ CHR$ (34)"?" CHR$S (34): GOSUB 
4000: IF NM$ = ‘’" THEN 550 

770 IF CT THEN CT = 0: GOTO 760 

775 HOME : PRINT : PRINT "TRANSFERT EN COU 
RS...": PRINT : PRINT "<ESC> POUR L'INT 
ERROMPRE": IF A3 < > 2 THEN 795 

780 PRINT D$"OPEN"NMS$: PRINT D1S$"WRITE"NMS 
: GOTCO 800 

795 PRINT D$S"PR#"SI: IF A3 = O THEN PRINT 

CHRS (27) CHR$ (69) CHR$ (14) 

800 AC = 9729 

810 OC = PEEK (AC): IF OC = 255 THEN 900 

820 IF OC = 254 THEN PRINT : PRINT : FOR 
I = O0 TO 39; PRINT "=";: NEXT 5 PRINT : 
PRINT :AC = AC + l: GOTO 810 

822 POKE 2039,0OC + 128 

825 IF PEEK {49152) = 155 THEN POKE 4916 
8,0: GOTO 900 

830 PRINT CHR$ (OC);:AC = AC + 1: GOTO 81 
0 

900 PRINT D$"CLOSE": IF A3 = O0 THEN PRINT 

CHR$ (15) 

910 PRINT CARS (12): PRINT D$"PR#0": POKE 

2039,160: GOTO 100 


Tnitialise les tableaux pour les menus 

DATA MINITEL VERS APPLE, CONSULTATION, 
CHARGER, SAUVEGARDER, OPTIONS, ENVOI D'UN 
FICHIER, FIN 

FOR I = O TO 6: READ MIS(I): NEXT 
DATA SEQUENCES, PORT MINITEL, COPIES D' 
ECRAN, PORT IMPRIMANTE, RETOUR, RETOUR 
FOR I = O0 TO 2: READ M2$(I),M3$(I): N 
EXT 

FOR I = O TO 4:M4S(I) = "PORT "+ ST 
R$ (I + 1): NEXT :M4$(6) = "RETOUR":M4 
$(5) = "NEANT 

DATA VERS IMAGEWRITER/DMP, VERS AUTRE 
IMPRIMANTE, VERS UN FICHIER ‘'TEXT',RETO 
UR 

FOR I = O TO 3: READ M5$(I): NEXT 
DATA 27,58,107,118,32,27,58,107,100 
12 

FOR I = O TO 9: READ A$(I): NEXT 
RETURN 


SP À ffichage des menus 
1100 HOME :TT$S = " "+ TT$ + " ": PRINT S 
PC( (40 - LEN (TT$}) / 2): INVERSE : 
PRINT TT$: NORMAL :MA = I - 1: FOR I = 
0 TO MA: VTAB I * 2 + 8: PRINT SPC( 
12)M${(I): NEXT :ESC = 0 
1105 IF LEFTS (M$(0),1) = "M" AND FS THEN 
VTAB 14: HTAB 12: INVERSE : PRINT " 
"M$ (3)" “2: NORMAL 


1000 


1010 


1020 


1030 


1040 


1050 


1060 
1070 


1080 
1090 





1110 
1120 
1130 
1140 


1150 


1160 
1170 


1200 


1300 


1320 
1330 
2000 


3000 


4000 
4002 


4003 


4030 


4040 


4050 


4055 


4056 
4057 


4060 
4100 


4200 


4210 


4300 


4400 


4410 
4420 





GOSUB 1300 

GOSUB 6000:CA = PEEK (49152) 

IF CA = 13 THEN RETURN 

IF CA = 8 OR CA = 11 THEN CH = CH - 1 
: IF CH < O THEN CH = MA: GOTO 1110 
IF CA = 21 OR CA = 10 THEN CH = CH + 
1: IF MA < CH THEN CH = 0: GOTO 1110 
IF CA = 27 THEN CH = MA: RETURN 

GOTO 1110 


RETURN 


Affiche la flèche des menus 

FOR I = O TO MA: VTAB I * 2 + 8: POKE 
36,7: IF CH = I THEN PRINT "*-->";: 
GOTO 1330 

PRINT SPC( 4) 

MEXT : RETURN 

FOR I = 1 TO 5: PRINT "--------";; NE 
XT : RETURN 


Fin. ESC ne perinet pas de sortir 
ON CA = 27 GOTO 100: END 


Saisie le nom du fichier 
IF UX = 1 THEN CT = 1:UK = 0: RETURN 


VTAB 10: POKE 36,10: CALL - 958: PRI 
NT Masai aissensste “;: POKE 36,10 
: INPUT "":NMS$S: IF NM$ = ‘"" THEN RETU 
RN , 

IF LEN (NM$) > 20 THEN : CALL AD,SI, 
BE: GOTO 4000 


IF LEN (NM$) < 3 THEN 4050 

IF ( LEFTS$S (NM$,2) = "C." OR LEFTS ( 
NM$, 2) = "S,") AND CU THEN NM$ = RIGH 
T$ (NM$, LEN (NM$) - 2) 

IF ( ASC ( LEFTS$S (NM$,1)) < 65 OR AS 
C ( LEFTS (NM$S,1)}] > 90) AND NM < > 
"?" THEN CALL AD,SL,BE: GOTO 4000 
FOR I = O TO l:MS$(I) = "LECTEUR " + 


STR$ (I + 1): NEXT :M$(2) = M2$(2):I = 
3:CH = PEEK (43624) - 1: GOSUB 1100: 
IF CH = 2 THEN CT = 1: RETURN 


POKE 43624,CH + l: HOME 
IF NM$ = "?" THEN VTAB 10: PRINT D$" 


CATALOG": PRINT : PRINT "<RETURN>": GO 
SUB 6000: HOME :CT = 1 

RETURN 

LF = PEEK (8) * 256 + PEEK (7) - 947 
1: RETURN 

Erreur de type de fichier 


HOME : PRINT : PRINT "IL N'Y À PAS DE 
“"M2$(1 - DK): PRINT "EN MEMOIRE... <R 
ETURN>": CALL AD,SL,BE 

GOSUB 6000:A1 = DK: GOTO 100 


L'une des interfaces manque 

HOME : PRINT : PRINT "UTILISEZ LE MEN 
U "OPTIONS" POUR": PRINT "INDIQUER LA 
CONFIGURATION <RETURN>": CALL AD,SL,BE 
:A0 = 4: GOSUB 6000: GOTO 100 


Envoi d'un fichier au Minitel 

HOME : VTAB 8: PRINT NF$"'TEXT' À ENV 
OYER":CU = 0: GOSUB 4000:CU = 1: IF NM 
$ = ‘"" THEN 100 

IF CT THEN CT = 0: GOTO 4400 

HOME : PRINT : PRINT "TRANSFERT EN CO 
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URS...'"': PRINT : PRINT "“<ESC> POUR L'I 
NTERROMPRE 

4430 PRINT D$"PR#"SL: PRINT D$"OPEN"NMS$: P 
RINT D1$"READ"NM$ 

4440 GET R$: IF R$ = CHR$ (13) THEN POKE 
6,19: CALL AD,SL,CX: POKE 6,72: CALL 
AD, SL, CX: FOR I = 1 TO 2400: NEXT : GO 
TO 4440 

4445 FOR I = 1 TO 35: NEXT 

4450 POKE 6, ASC (R$): CALL AD,SL,CX:: IF 
PEEK (49152) = 155 THEN POKE 49168,0 
: GOTO 4500 


4460 GOTO 4440 


4500 PRINT D$"CLOSE": PRINT D1$"PR#0": GOT 
© 100 
Minitel et interf ace e n 4800 bauds 


4600 VTAB 17: FOR J = O0 TO 4: POKE 6,A$(J) 


: CALL AD,SL,CX: NEXT : PRINT : PRINT 
D$S"PR#"SL: PRINT “ “ CHR$ (1)"12B": PR 
INT D$"PR#0": VTAB 17: PRINT SPC( 4): 
PRINT 
4605 RETURN 
Minitel et interf ace en 1200 bauds 


4610 VTAB 17: FOR J = 5 TO 9: POKE 6,A$%(J) 
: CALL AD, SL,CX: NEXT : PRINT : PRINT 
D$"PR#"SL: PRINT " “ CAR$ (1)"8B": PRI 
NT D$"PR#0": VTAB 17: PRINT SPC( 4): P 
RINT 


4615 RETURN 


Traitement des erreurs 

CALL 9461:U = PEEK (222): IFU=5T 
HEN 4500 

CALL AD,SL,BE:U = 
255 THEN RESUME 
5010 LI = PEEK (219) * 256 + PEEK (218): 
PRINT DS"PR#O 

VTAB 18: PRINT : IF U = 8 THEN PRINT 
"ERREUR D'ENTREE/SORTIE 

IF U « 6 THEN PRINT "FICHIER INTROUV 
ABLE 

IF U = 13 THEN PRINT 
DE FICHIER 

IF U = 9 THEN PRINT 
R LE DISQUE 

PRINT "“ <RETURN>": WAIT 49152,128: PO 
KE 49168,0 

IF LI + 280 THEN 255 

IF LI = 380 THEN 355 

IF LI = 780 THEN 760 

IF LI = 4057 THEN UK = 1: 
IF LI = 4430 THEN 4400 
END 


SP attend une touche 
WAIT 49152,128: POKE 49168,0: RETURN 


5000 


5005 PEEK (222): IFU= 


5020 


5030 


5035 "ERREUR DE TYPE 


5040 "PAS DE PLACE SU 


S045 


S050 
5060 
5070 
5080 
5090 
5091 


GOTO 4000 


6000 


Préfixes pour fichiers binaires 

IF Al = O THEN NMS = "S." + NMS 
IF Al = l THEN NMS = "C." + NMS 
RETURN 


Inirialise SSC Minitel 
PRINT DS"PR#"SL: PRINT DS"PR#0": 
RN 


6100 
6110 
6120 


7000 RETU 














Récapitulation 
‘MINIT EL’ 


Après avoir saisi ce code sous 


moniteur, vous le sauvegarderez par : 
BSAVE MINITEL.AS$204A,L54B5 


204A:20 
2050:69 
2058: 0A 
2060:ED 
2068:00 
2070:01 
2078:97 
2080:22 
2088:C39 
2090:20 
2098:3A 
20A0:23 
20A8:A1 
20B0:A0 
20B8:07 
20C0:08 
20C8:08 
20D0:20 
20D8:21 
20E0:A1 
20E8:09 
20F0:20 
20F8:3A 
2100:06 
2108:00 
211601: 91 
2118:A4 
2120:E8 
2128:2D 
2130:20 
21378:18 
2140:01 
2148:20 
2150; 21 
2158:04 
2160:71 
2168:91 
2170:18 
2178:A4 
2180:23 
2188:32 
2190:A0 
2198:68D 
2120: 18 
21A8:08 
21B0:18 
21B8:B1i 
21C0:A0 
21C8:09 
21D0:E6 
21D8:A5 
21E0: 08 
21E8:10 
21F0:4F 
21F8:0E 
2200:AC 
2208:A5 
2210:02 
2218:21 
2220:23 


F5 
co 
69 
A9 
85 
FO 
21 
c3 
05 
92 
DB 
2C 
EB 
00 
E6 
C9 
20 
3A 
E6 
20 


DB 


A9 


E6 
85 
89 
Co 
FC 
28 
C9 
04 
DO 
23 
60 
00 
29 
91 
07 
96 
92 
DB 
LC 
2C 
85 
23 
20 
90 
FF 
4c 
FO 
E8 
49 
1C 
18 
A5 
23 
A5 
38 
E6 
20 
64 
FO 
DO 
4c 
A9 
20 


8A 
FD 
85 
85 
20 
C3 
03 
DO 
03 
A0 
20 
co 
08 
07 
DO 
DO 
23 
20 
DO 
10 
06 
A0 
oc 
20 
91 
92 
6B 
E8 
A0 
C9 
90 
1D 
20 
1C 
BO 
18 
6B 
23 
08 
F2 
Ai 
CB 
8A 
A9 
DO 
FO 
07 
07 
EN7 
02 
18 
DO 
10 
FO 
FO 
23 
02 
20 
23 
20 


48 
68 
EB 
EC 
F5 
02 
DO 
03 
4c 
23 
90 
30 
FO 
09 
1C 
14 
A0 
oc 
02 
co 
C9 
24 
FD 
4c 
07 
23 
C5 
DO 
00 
64 
04 
71 
64 
71 
01 
E6 
23 
A0 
85 
4c 
20 
4c 


18 
0A 
85 
85 
E6 
DO 
03 
4c 
A0 
A9 
20 
3C 
F3 
80 
E6 
C6 
24 
FD 
E6 
AD 
3B 
A9 
C3 
A1 
C8 
A2 
06 
F1 
A5 
BO 
C8 
18 
23 
18 
c8 
18 
88 
03 
06 
A1 
20 
3A 
A0 
85 
A0 
85 
18 
64 
20 
08 
E2 
AD 
C3 
c9 
(GC) 
ES 
0B 
2x3 
92 
DB 


OA 
C6 
A9 
c9 
4c 
5C 
23 
60 
20 
43 
00 
ED 
F7 
A5 
C6 
2D 
07 
4c 
co 
25 
20 
FO 
A0 
C8 
BD 
06 
C3 
DO 
71 
BO 
18 
74 
90 
1D 
01 
91 
BD 
32 
20 
23 
20 
84 
85 
B1 
88 
18 
06 
23 
00 
A5 
co 
FO 
FO 
FO 
38 
E9 
AD 
A0 
37 


2228:22 
2230:A0 
2238:0C 
2240:20 
2248:3A 
2250:CF 
2258:21 

2260:CA 
2268:1B 
2270:C9 
2278:22 
2280:C9 


60 
24 
FD 
92 
DB 
FO 
4c 
22 
DO 
13 
BO 
0D 


20 
A9 
20 
23 
20 
06 
92 
20 
) HA 
DO 
EC 
DO 


23 
20 
21 
24 
FD 
8D 
20 
22 
CA 
A0 
DO 
C6 


20 
3A 
4C 
A9 
29 
21 
43 
90 
22 
oc 
F8 
lE 


92 
DB 
ES 
6B 
DF 
4C 
23 
07 
A5 
20 
A5 
A5 


23 
20 
21 
20 
(og 
ES 
4c 
C3 
06 
FD 
06 
06 


80 colonnes et 
HGR2 


Si votre carte 80 colonnes 
TEXT Apple est active 


(PR#3), l'ordre HGR2 
ne vous conduit pas 


nécessairement à effacer 


graphique 2. Le remède : 


et afficher la page 


avant de faire HGR2, 


faites POKE 49164,0 et 


POKE 49152,0 ce qui 
désactive la carte et 
commute la mémoire 
principale. 


2288:C9 
2290:A0 
2298:07 
22A0:08 
22A8:08 
22B0:20 
22B8:23 
22C0:1A 
22C8:62 
22D0:00 
22D8:0A 
22E0: 02 
22E8:A9 
22F0:C9 
22F8:18 
2300:30 
2308:F0 
2310:2C 
2318:20 
2320:3A 
2328:4C 
2330:1E 
2338:29 
2340:68 
2348:1A 
2350:08 
2358:00 
2360:20 
2368:85 


04 
07 
DO 
DO 
23 
20 
10 
C3 
08 
91 
A5 
20 
3A 
2E 
62 
00 
ED 
AD 
A0 
00 
A9 
48 
F8 
A9 
85 
C6 
A9 
60 
C9 


20 
80 
E6 
C6 
24 
FD 
E6 
FO 
6B 
E6 
c9 
23 
20 
2B 
2C 
EB 
06 
Co 
A9 
FF 
85 
00 
06 
85 
A9 
A0 
C8 
00 
90 


90 
8D 
08 
07 
A9 
4C 
JE 
03 
23 
07 
96 
A0 
oc 
23 
00 
29 
18 
38 
EC 
91 
1A 
A1 
61 
07 
26 
00 
91 
85 
03 


D2 
F7 
AS 
C6 
2D 
22 
E6 
4c 
AO 
DO 
DO 
24 
FD 
20 
co 
08 
60 
60 
4c 
07 
85 
EB 
ED 
85 
85 
A9 
18 
1e 
20 


2370:73 
2378:40 
2380:30 
23868:A8 
2390:23 
2398:65 
23A0:A5 
23A8:BD 
23B0:09 
23B8:32 
23C0:F0 
23C8:D0 
23D0:CC 
23D8:CD 
29E0:C5 
23E8:C5 
23F0:A0 
23F8:A7 
2400:D2 
2408:D0 
2410:D4 

2418:D2 
2420:C1 

2428:D5 
2430:CF 
2438:D5 
2440:D2 

2448:DA 

2450:CE 
2458:AE 
2460:D0 
2468:C39 
2470:D5 
2478:C5 
2480:D4 
2488:00 
2490:BD 
2498:A0 
242A0:C39 
24A68:8B 
24B0:89 
24B8:83 
24C0:87 
24C8:92 
24D0:85 
24D8:DC 
24E0:FD 

24E8:A3 

24F0:FC 
24F8:A6 


E8 
23 


DF 


60 98 


48 8A 48 AO 
CA DO FD 2C 
F4 66 AA 68 
85 06 20 32 
85 24 A9 17 
FB 4C 9C FC 
85 06 A2 00 
0A C5 06 FO 
E8 DO F1 4C 
E8 BD A4 24 
20 32 23 88 
CF C4 C5 AO 
D5 D2 C5 00 
A0 C5 CE D2 
D4 D2 C5 CD 
CD CF C4 C5 
C9 C5 AO C4 
C1 CE 00 DO 
C5 D2 C5 A0 
AO BC D2 C5 
BE 00 C4 C5 
D2 C5 A0 DO 
BC D2 C5 D4 
00 CD C5 CD 
AO D3 C1 D4 
AC AO C5 CE 
D3 D4 D2 C5 
C5 D4 D5 D2 
C1 D5 D3 C5 
D3 C3 BE A0 
AO C6 C9 CE 
CB A0 DO CF 
C9 CE AO C4 
CE D3 D5 CC 
CF CE A0 BF 
D5 D2 CE AO 
DO C9 C5 AC 
AO BD AO C6 
8D 13 41 00 
97 13 49 00 
FF 13 47 00 
93 13 46 00 
98 13 45 00 
82 13 43 00 
C6 19 41 61 
FB 19 42 65 
DB 19 30 00 
DD 19 27 00 
00 68 A6 68 


Récapitulation 
PARAM' 


NB : Ce fichier n'est utile que pour 
utilisation sur un Apple fic. 


Aprés avoir saisi ce code sous 
moniteur, vous Le sauvegarderez par : 
BSAVE PARAM,AS300,L$27 


0300:A9 36 
0308:7D 04 
0310:7C 85 
0318:43 85 
0320:04 85 


8D 7C 
A9 81 
42 85 
3D A9 
JF 38 


04 A9 6B 6h 
8D 7E 04 A9 
3C A9 04 685 
7E 85 3E A9 
4C 11 C3 





64 
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APP 


L'objet de ces lignes de présentation n'est pas de faire une 
analyse exhaustive du nouveau bébé (bien beau) ni de céder à la 
facilité qui consiste à reprendre ligne à ligne le dossier de presse 
diffusé par le constructeur. Voici simplement notre premier 
contact et quelques caractéristiques ; gageons toutefois que nous 
vous ferons profiter sans tarder de nos premières lignes de 
programme 16 bits. 


Le processeur 


Empiler directement un repistre, compter de 0 à 1000 (ou 
65535) directement, disposer de branchements relatifs longs, de 
sauts indirects à des sous-proprammes, utiliser un adressape sur 
24 bits, déplacer des blocs de mémoire (32Ko en 80 ms) sont 
quelques-unes des possibilités du 65816. Ce processeur qui reste 
dans la ligne des 6502 et 65C02 séduira leurs adeptes : la lecture 
de ses caractérish ques ne dépaysera pas le Lecteur de Pom's 
comme il put l'être par l'arrivée du 68000. Le 65816 qui est une 
évolution, non une révolution, met à la disposition du 
programmeur : 


+ Accumulateur A 16 bits, 

+ Repistes X et YŸ 16 bits, 

+ Repiswe DBR, le numéro de la ‘page’ DATA, c'est à dire les 
8 bits de poids fort dans les adressages lonps, 

+ Repistre PBR, ie numéro de la ‘page’ de l'instruction 
suivante (Program Bank Register), le PC contenant les 16 
bits de poids faible, 

+ _ Registre D pour les adressapes directs, 

+ Registre d'état P, 

+ Pointeur de pile S sur 16 bits. 


Un petit tour en moniteur par le CALI.-151 (on est en mode 
émulation) nous fait découvrir ce nouveau listing : 


FF/19D8:00 00 Et E2 30 64 AI 60-..ab0d!" 
FF/19E0:32 D5 BD AO D5 F3 ES E4-2U= Used 
FF/19E8:A0 EC E9 F3 F4 AO A0 DO- list P 
FF/19F0:BD A0 D0 F5 F2 E7 E5 A0-= Purge 

FF/19F8:EC E9 F3 F4 A0 A0 C6 BD-list F-= 
FF/1A00:A0 C6 F2 ES ES A0 EC E9- Free 11 
FF/1A08:F3 F4 AO AO D1 BD A0 Di-st O=0Q 
FF/1A10:FS E9 F4 3B 8D 8D A3 AO-uit;..# 

FF/1A18:A0 AO A0 C8 El EE E4 EC- Handl 
FF/1A20:E5 A0 AO C1 E4 E4 F2 A0-e Addr 

FF/1A28:A0 Ci F4 F4 F2 A0 A0 C9- Attr I 
FF/1A30:C4 A0 AO A0 A0 D3 E9 FA-D Siz 
FF/1A38:E5 A£ AO A0 A0 D0 F2 ES-e Pre 
FF/1A40:F6 A0 AO A0 CE ES F8 F4-v Next 
FF/1A48:A0 A0 A0 C6 F2 ES ES 35- Frees 


A gauche, je numéro de la ‘page’ sous la forme "nn/”, on devine 
rapidementqu'il y a 256 ‘pages’ mais qui n'existent évidemment 
qu'en fonction de la RAM disponible. A droite un équivalent en 
ASCII, pratique. Surprise : on est gratifié du bip mérité par 
FBEAG, et FC58G cfface l'écran comme prévu, mais le listing 
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donne ceci : 
00/FC58: 00 00 BRK 00 
00/FC5A: 00 00 GRK 00 
00/FC5C: 00 00 BRK 00 
00/FC5E: 00 00 BRK 00 
00/FC60: 00 00 BRK 00 
00/FC62: 00 00 BRK 00 
00/FC64: 00 00 BRK 00 
00/FC66: 00 00 BRK 00 
00/FC68: 00 00 BRK 00 
00/FC6A: 00 00 BRK 00 
00/FC6C: 00 00 BRK 00 
00/FC6E: 00 00 BRK 00 


Ceci parcequ'au-dessus de $BFFF, en mode émulation, le saut 
se fait dans la page $FF, là où se trouve la ROM : 


FF/FC58: A0 05 LDY #05 
FF/FC5A: 80 CD BRA FC29 {-33) 
FF/FCSC: EB XBA 

FF/FCS5D: 4C EB FC JP FCEB 
FF/FC60: 00 00 BRK 00 
FF/FC62: A9 00 LDA #00 
FF/FC64: 85 24 STA 24 
FF/FC66: E6 25 INC 25 
FF/FC68: AS 25 LDA 25 
FF/FC6A: C5 23 CMP 23 
FF/FC6C: 90 B6 BCC FC24 (-4A} 
FF/FC6E: C6 25 DEC 25 
FF/FC70: A0 06 LDY #06 
FF/FC72: 80 B5 BRA FC29 {[-4B} 


L'exploration de cette ROM de 128K0 laisse paraître un ‘tableau 
de bord' qui fait penser au Macintosh. Cette visite nous 
conduira également à une table de sauts dans la page $EÏ qui 
rappelle aussi le sus-cité. 


Ouvert, fermé ? 


Le tableau de bord, en plusieurs menus et à l'ergonomie 
agréable, donne la possibilité de régler le niveau sonore, la 
fréquence du Bip, la couleur du fond, celle des caractères, celle de 
la marge de l'écran, la ‘nationalité’ des caractères affichés 
(pourquoi les Danois perdraient-ils leur à ?}, celle du clavier. 
Bien sûr, il donne également accès à l'horloge mais il séduit 
surtout par la gestion de l'affectation des slots. Par défaut, nous 
trouvons dans ceux-ci, connectés "soft, les interfaces intégrées 
suivantes : 


SLOT 1 Imprimante 

SLOT 2 Communication 
SLOT 3 80 colonnes 

SLOT 4 Souris 

SLOT 5 ‘Smart slot' 

SLOT 6 Lecteur de disquettes 
SLOT 7 Libre 


EEE | 





Ceci sans carte dans l'appareil. Notons que le siot 7 peut être 
affecté à l'interface AppleTalk intégrée. Dans ce cas, l'interface 
communication est indisporu ble. 


Pour chacun des ports, il est possible d'imposer à la machine 
l'utilisation de l'interface connectée physiquement. Nul besoin 
de modem ? Mettre en port 2 la carte Z80, l'indiquer par ce 
tableau de bord et le CP/M est accessible. Le 11GS donne 
également le choix de l'interface qui servira au ‘boot’. li est 
même possible de booter sur le disque virtuel si on a pris soin 
de l'installer, d'y copier une disquette avant le CTRL-G 
RESET... Vitesse garantie. 


Pour les interfaces imprimante et communication, le réglage des 
paramètres peut également se faire par ce tableau de commande. 


Débit, parité, format et protocole de transmission des données 
sont accessibles sans lever le capot ce qui, vu la conception de 
l'ouverture, ne nous frustera pas. Cet aspect de la machine rend 
plus vivable le ‘système ouvert’ : Pom's sait par expérience 
toute la souplesse tirée de multiples cartes mais sait également 
toute la lassitude de retirer le moniteur pour passer du mode 
imprimante au mode communication, pour tourner le ‘Jumper 
Bloc’ ; parfois, imiter les systèmes fermés a du bon... 


e # 


La compatibilité 


Ce tableau de bord offre également le choix de ta vitesse du 
processeur : 1 ou 2,8 MHz. Celle des Apple // est à choisir si 
l'ouverture de Guillaume Tell de la disquette Pom's S doit rester 
compréhensible, ou si votre Z80 est perdu par la vitesse 
standard du ÏIGS. La fréquence 2,8 MHz est à choisir pour tous 
les programmes indépendants du ‘timing’ ou ceux qui sont 
synchronisés sur la vidéo. L'utilisation de Big Mac par exemple 
devient étonnante, le gain est remarquable sur la plupart des 
programmes surtout si l'on considère la gestion de la carte 80 
colonnes, sensiblement plus nerveuse que celle du //e. 


La compatibilité semble assurée très largement, bien que notre 
AppleWriter DOS 33 soit inutilisable et que la version 
ProDOS soit dépassée par les nouvelles interfaces. Même 
Pascal (dont la portabilité semble surfaite lorsqu'on passe du //e 
au //c...) nous a paru s'accomoder, mais seule l'expérience en 
dira plus. Logiquement, les programmes qui cherchent une 
adresse particulière dans la carte souris ou 80 colonnes courent à 
l'échec mais l'émulation semble très au point, les disquettes 
Pom's resteront d'actualité pour celui qui gardera un lecteur 5,25 
pouces car le IIGS est équipé en standard de lecteurs de disquettes 
3,5 pouces 800K, ceux du Macintosh, un témoin rouge de 
fonctionnement en prime. 


Quelques 
caractéristiques du IIGS 


Bien des photos des écrans créés à l'aide du programme de dessin 
GSPaint ont fait les couvertures. Il reste que l'utilisation est 
spectaculaire, toutes les facilités du Macintosh sont présentes 
dans ce programme auquel on pardonne d'être plus lent, vues les 
couleurs disponibles. Le plus étonnant est l'édition de ces 
couleurs : trois ascenceurs où potentiomètres pour doser les 
rouge, vert et bleu, un pour régler la luminosité et un pour la 
saturation : les 4096 nuances sont là. A joutons que les ‘motifs’ 
sont éditables en couleurs mais comment obtenir une copie 
papier qui respecte l'œuvre ? 


En résumé, le IIGS, c'est : 


+ Une unité centrale 128K de ROM et 256 de RAM extensible 
à 4 mégaoctets, 

+ Un clavier détachable, ou plutôt détaché, avec bloc 
numérique etsouiis, 

+ Moniteur couleur, 

+ Lecteur de disquette 3,5 pouces, 

+ 640 x 200 points à l'écran en 4 couleurs parmi 4096 ou 320 
x 200 en 16 couleurs, 

+ Son 16 voix 

+ 8 connecteurs d'extension {dont un pour une extension 
mémoire}, 

+ Deux interfaces série, une souris, une 80 colonnes, une 
AppleTalk. 


Les Lecteurs de Pom's qui se sont penchés sur les sources des 
programmes Macintosh se sont alloués un avantage certain pour 
la programmation de leur Futur GS. Le contact avec les routines 
graphiques des 128K de ROM leur sera familier : SetClipRgn, 
OtscureCursor, GetPenState, TextFace et autre GetFontinfo 
sont apparues dans le cahier Mac depuis bien des numéros. Les 
paramètres se passent ici aussi par la pile, pile qui atteint 64K. 


Le graphisme 

Point fort du nouvel arrivé, le graphisme Super-Haute 
Résolution mérite quelques précisions. 

L'écran est divisé en 200 lignes de 320 ou 640 points. A chaque 
ligne est affecté un octet qui en donne les caractéristiques : 


4 bits pour indiquer quelle table, parmi les 16 tables de 16 
couleurs, doit être utilisée, 

1 bit indiquera si la ligne est en mode 320 ou 640 points, 

1 pour activer le mode remplissage, 

1 bit pour les interruptions. 


La table de 16 couleurs... 

choisie pour la ligne est composée de 16 fois deux octets. 
Dans ces 2 octets, 4 bits donnent le niveau de bleu, 4 pour le 
vert et 4 pour le rouge, 4 ne servent pas. 


Mode 320 ou 640 

En mede 320 chaque pixel est défini non par 1 bit, mais par 4 
qui donsent le numéro de la couleur de ce pixel dans la table de 
la ligne. 

En mode 640, chaque pixel est défini par 2 bits donnant le 
numéro de sa couleur dans une païtie de la table de la ligne, il y 
a donc 4 pixels par octet. Le premier pixel sera de l'une des 
couleurs 0 à 3, le deuxième dans l'une des couleurs 4 à 7, etc. 2 
pixels adjacents ne peuvent donc êue de la même couleur que si 
la table est composée de 4 fois les mêmes couleurs. 


Interruptions 

Le tracé d'une ligne peut générer une interruption : il est donc 
possible d'en profiter pour changer la palette de couleurs avant. 
Gymnastique complexe qui rend possible l'affichage de 256 
couleurs sur le même écran. 

Remplissage 

Sile bit de remplissage de l'octet de contrôle d'une ligne est à 1, 
la couleur 0 de la table de couleur est indisponible : les pixels 
définis de la couleur 0 seront en fait de la dernière couleur 
utilisée. 


De telles possibilités graphiques devraient donner l'idée 
d'utilitaires.. 
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Lassé des saisies au clavier ? 
Choisissez une interface directe et 
conviviale : le crayon optique, un 
peu délaissé depuis l'arrivée des 
Macintosh, Apple //c et leur 
cortège de souris. 

Le petit montage proposé ici ne 
saurait rivaliser avec la précision 
des petits rongeurs à roulettes, 
mais pour passer de menus en 
menus, il s'avère particulièrement 
efficace. De plus, le coût de 
l'opération (moins de 40,00 F) la 
rend attrayante. 


Le principe : 
Île Ile 


Les principes retenus pour le 
contrôle du balayage vidéo étant 
différents sur les //c et //e, la 
routine est composée de deux 
paities indépendantes. 


Le manuel de référence de 
l'Apple //e signale un octet qui 
change de valeur au début et à 1a 
fin du balayage vidéo : $C019. 
Pour connaître la position d'un 
crayon optique sur l'écran, il 
convient de ‘chronométrer’ le 
temps écoulé entre le début du 
balayage et la réception de la 
lumière par le crayon. Cette 
réception sera contrôlé par un 
phototransistor relié au connec- 
teur des poignées de jeu. 


Le programme en assembleur 
respecte les étapes suivantes : 


* attendre que le crayon ne soit 

plus éclairé pour laisser fmir 

un éventuel balayage en cours, 
attendre le début d'une trame, 
commencer alors le comptage, 

* attendre que le phototransistor 
soit éclairé pour stopper le 
comptage, 

* recommencer le processus si 
on arrive en fin de trame sans 
que le crayon n'ai reçu de 
lumière, 

. contrôler que le crayon se 
retrouve bien dans l'ombre 
après le passage du spot. Sitel 
n'est pas le cas, le crayon était 
éclairé par la lumière ambiante, 

* contrôler simultanément le 
clavier pour que l'utilisateur 
puisse l'utiliser à son gré. 
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Um Crayon Optique 


Christian IPiard 












MENU PRINCIPAL 


Sur le //c, on en peut plus se 
référer au changement de valeur 
de l'octet $C019. Un interruption 
peut être générée à chaque début 
de trame, mission confiée à la 
carte souris. La routine installe en 
premier lieu le vecteur 
d'interruption puis exécute une 
boucle en attendant la première 
d'entre-elles (une à chaque 60ème 
de seconde). Le reste du 
traitement est similaire. 

Un test permet au début de 1a 
routine de savoir si on se trouve 
sur l'un ou l'autre des 
ordinateurs. 


Utilisation du 
programme 


Charger depuis votre programme 
Basic la routine : 

PRINT CHR$(4)"BLOAD CRAYON,A3812 
Pal 

À chaque utilisation du crayon, 
faire : 

CALL 38127 

Sur le //e, la routine étant 
relogeable, il suffit de faire : 

CALL adresse de chargement 

Sur le //c il faudra réassembler à 
l'adresse choisie ou, sous 
ProDOS, utiliser le relogeur d'A. 
Avrane. 


BB INITIALISATION 

CREATION 

MODIFICATION 
ANNULATION 
CONSULTATION 
IMPRESSION 

BA FIN DE LA DEMONSTRATION 


Après cet appel, dans l'octet 6, 
vous disposez de la position 
verticale du crayon, entre O et 23. 
Si cet octet est à 255, l'ulisateur 
s'est servi du clavier et vous 
trouvez le code de 1a touche dans 
l'octet 7. Ceci est illustré dans le 
programme DEMO. 


Comme dans le programme de 
démonstration, réservez une zone 
en vidéo inverse sur chaque 
option pour que le phototransistor 
réagisse efficacement. 


Ce programme peut fonctionner 
sous ProDOS sur l'un et l'autre 
appareil. 


Réalisation 
pratique 


Le hardware (!!) se résume à : 


* trois résistances qui laissent 
l'entrée logique 0 (équivalent à 
la 6) à O, 

. un phototransistor qui, en se 
saturant à la lumière porte cette 
entrée à 1. 


Le phototransistor — dont le type 
n'est pas critique — sera installé 
dans un tube opaque. Quant aux 
résistances, elles trouveront leur 
place dans la prise reliée au 
connecteur poignée de jeu. 
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L'incompatibilité se faisant sentir 








F LJ L 
ù À | Récapitulation 9558- 08 58 24 08 10 FC 78 A9 
à ce niveau là également, l'une ‘CRA YON 9560- 00 AO 12 20 DE 95 58 60 
des résistances est ajustable car le 9568- 78 A5 FE 85 19 A5 FF 85 
seuil de déclenchement de l'entrée Après avoir saisi ce code sous 9570- 1A A5 45 85 1B 86 1C 64 
différe sensiblement selon les moniteur, vous le sauvegarderez par : 9578- 1D A9 00 AO 12 20 DE 95 
appareils. Pour la régler, exécutez  BSAVE CRAYON, A$94EF, L$111 9580- A0 13 20 DE 95 90 06 20 
le programme suivant : 9588- Fi 95 4C £EB BF A9 00 85 
94EF- AD 9590- 06 85 07 85 08 AO 06 A2 
LOSERNT PEER 620) 94F0- CO FB FO 4A 2C 00 CG 30 9598- E3 CA DO FD 88 DO F8 A2 
ne 94F8- 38 2C 61 CO 10 F6 A9 00 95A0- 1E 2C 00 CO 30 2A 2C 61 
9500- 85 06 85 07 2C 19 CO 30 95A8- CO 30 17 CA DO F3 E6 06 
Réglez-la pour obtenir les valeurs  °508- FB 2C 19 CO 10 FB A2 1E HR AS 08 CS 28 7002 22708 
supérieures à 127 (généralement 9519- 2C 00 CO 30 1C 2C 61 CO 95B8- AC 12 20 DE 95 20 FI 95 
onobtent 160) pusemngen Von EONeuES A nees 
Re 9528- CA DO FD 2C 61 CO 30 C4 95D0- 2C 10 CO AD 00 CO 85 07 
re 9530- 60 2C 10 CO AD 00 CO 85 95D8- A9 FF 85 06 DO EE 48 A2 
à 127 (généralement 32), le tout, os 57 a9 Fr 85 06 60 78 A9 9SE0- 00 86 FE A2 C4 66 FF B1 
crayon à l'ombre. 9540- 68 8D FE 03 A9 95 8D FF 95E8- FE 85 FE AO 40 68 6C FE 
GC 9548- 03 A0 19 20 DE 95 A9 08 95F0- 00 AS 19 85 FE A5 1A 685 
9550- AO 12 20 DE 95 A9 00 85 95F8- FF A4 1D A6 1C A5 1B 60 
Source ‘T.CRAYON 43 INC COMPT Chronomètre 
: 44 BIT VBL jusqu'à fin 
Assembleur Big Mac 45 BMJ SOE balayage 
46 BPL DEB 
1 ORG S$9600-273 47 ECLAIRE 
2 COMPT $6 48 LDX #$20 Crayon de nouveau 
3 TOUCHE = $7 49 ECE DEX à l'ombre ? 
4 DRAP = $8 50 BNE ECE 
5 SAVE . $19 51 BIT CRAYON 
6 SAVA = $1B 52 BMI DEB Non = parasite 
7 SAVX = $Sic 53 RTS Oui = fini 
8 SAVY æ $1D 54 
9 ACC = $45 55 CLAVE BIT $CO10 Vide clavier 
10 ADR = SFE 56 LDA KBD Sauvegarde carac- 
11 VECT = $S3FE Vect interruption 57 STA TOUCHE tère et met 
12 VBL = $C019 Vidéo sur //e 58 LDA #$FF compteur à $FF 
13 CRAYON = $CO61 Entrée logique 0 59 STA COMPT 
14 KBD = $C000 Clavier 60 RTS 
15 61 
16 LDA $FBCO //c ou ffe ? 62 IIC SEI Mise en place 
37 BEQ IIC 63 LDA  #<INTER du vecteur 
168 DEB 64 STA VECT d'interruption 
19 BIT KBD On attend une touche 65 LDA #>INTER 
20 BMI CLAVE au clavier 66 STA VECT+] 
PA à BIT CRAYON ou que le crayon 67 
22 BPL DEB soit à l'ombre 68 LDY 4#$19 Initialise souris 
23 69 USR SOURIS 
24 LDA #0 Initialise 70 LDA #8 En mode interrupt 
25 STA COMFT compteurs 21 LDY #512 vidéo autorisées 
26 STA TOUCHE F2 USR SOURIS 
Ar 73 LDA #0 Initialise drapeau 
28 E1E BIT VBL Attend fin du 74 STA DRAP 
29 BMI ElE balayage vidéo 75 CLI 
30 E2E BIT VBL en cours puis 76 BCL 
31 BPL E2E début du suivant 72 BIT DRAP On boucle en 
32 78 BPL BCL attendant interrupt 
33 SO0E 79 SEI 
34 LDX #$I1E temporisation 80 LDA 40 Remet souris en 
35 SO0E 81 LDY #5$512 inactif 
36 BIT KBD Attend une touche 82 JSR SOURIS 
37 BMI CLAVE au clavier 83 CLI 
38 BIT CRAYON ou que le crayon 84 RTS 
39 BMI ECLAIRE soit éclairé 85 
40 DEX 86 INTER 
41 BNE SOCE boucle 87 SET 
42 88 LDA ADR Sauvegarde des 
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83 STA SAVE registres 161 RESTREG 








90 LDA ADR+1 162 LDA SAVE Restaure les 
91 STA SAVE+1 163 STA ADR registres 
92 LDA ACC 164 LDA SAVE+1 
93 STA SAVA 165 STA ADR+#1 
94 STX  SAVX 166 LDY SAVY 
95 STY SAVY 167 LDX SAVX 
96 LDA #0 168 LDA SAVA 
97 LDY 4#$12 Souris inactive 169 RTS 
36 JSR SOURIS 
99 LDY #$13 Interr pour nous ? 
100 JSR SOURIS 
101 BCC SUITE Oui = on la traite 
102 JSR RESTREG Non = on restaure 
103 JMP $BFEB et on repart 
104 SUITE LDA #0 Initialise 
105 STA COMPT les compteurs 
106 STA TOUCHE 
107 STA DRAP 
108 LDY #6 
109 80 LDX 4#$E3 Attenda que le 
110 B1 DEX Premier point e 
nn END ai D jrécran Broche 2 = +5V, 
112 DEY soit allumé broche 3 = OV, Î 
113 BNE B0 broche 7 = mare de jeu (écos1) | : 
H 
: He + Es FRPERRCIor Sur le connecteur interne du //e, : Î E 
116 BIT KBD la broche 2 est la 1, TIL 81 
117 BMI CLAV Surveille clavier la broche 3 est la 8, ; 
118 BIT CRAYON et crayon la broche 7 est la 2. : PP 
119 BMI ECLAIR SRE DS CPR: +: SONDE È 
1 2 0 DEX .. CELLEELLEEP EEE ECECE EEE EEE EEE CE ECC ECECCCECEEE no cccnccnsondcsssssssssscccccecscvesssessesses0660e 
121 BNE S00 
122 Prodärhme ‘DEMO’ 
123 INC COMPT On compte de 0 
124 LDA COMPT à 23 maximum 
125 CM #24 5 PRINT CHR$ (4) "BLOADCRAYON,A38127 
\ 126 BCC 50 6 HIMEM: 37888: REM ProDOS page entière 
127 S000 10 DATA INITIALISATION, CREATION, MODIFICA 
128 LDA #8 TION, ANNULATION, CONSULTATION, IMPRESSIO 
129 LDY #$12 Souris active pour N,FIN DE LA DEMONSTRATION 
130 JSR SOURIS DOME LEE EMMPC 11 FOR I = 1 TO 7: READ M$(I): NEXT 
131 JSR RESTREG 
132 CLI 90 REM ------=- 
137 RTI 100 HOME : PRINT “MENU PRINCIPAL 
134 110 FOR I = 1 TO 7: VTAB 2 * I + 4: PRINT 
135 ECLAIR SEC( 3):: INVERSE:: PRINT " "I" ">: 
136 LDX  #$20 Crayon de nouveau NORMAL : PRINT " "M$ (I): NEXT 
137 EC DEX à l'ombre ? LS REM ===S==22=s 
138 HUE 120 CALL 38127 
139 BIT CRAYON 
140 EMI 5000 130 CHOIX = ( PEEK (6) - 3) / 2 
141 FIN DEC DRAP 140 IF  PEEK (6) = 255 THEN CHOIX = PEEK 
142 BMI SO000 (7) - 48 
143 150 IF CHOIX < 1 OR CHOIX > 7 THEN 120 
144 CLAV BIT $CO010 Garde caractère 160 (ON CHOIX GOTO 200,200,200,200,200,200 
145 LDA KBD , 300 
. ; A ed : ue 200 HOME : PRINT “ OPTION "MS(CHOIX)" ": 
e comp . . LI “. 
148 STA COMPT VTAB 20: INVERSE : PRINT RETOUR “: N 
149 BNE FIN cRAL 
150 SOURIS 210 CALL 38127: GOTO 100 
151 PHA Cherche dans la 300 VTAB 20: PRINT "OK POUR FINIR ? er I 
152 LDX 40 table en $C400 NVERSE : PRINT " OUI ": VTAB 22: POKE 
153 STX ADR l'adresse réelle de 36,16: PRINT “ NON “: NORMAL 
155 4e pe la routine désirée 310 CALL 38127: ON PEEK (6) = 19 OR PEE 
STX ADR+1 re K (7) = ASC ("O") GOTO 320 
156 LDA  (ADR),Y y fait un saut 
157 STA ADR 315 IF PEEK (6) < > 21 AND PEEK (7) < 
158 LDY #$40 > ASC ("N") THEN 310 
159 PLA 316 VTAB 20: CALL 64578: GOTO 120 


160 JMP {ADR) 320 HOME : END 








Micro-informations 


Jean-Michel Gourévitch 


Bouleversement dans le paysage 
de la micro. Alors que les 
résultats d'IBM s'effritent, voici 
que ceux d'Apple connaissent un 
ciel de plus en plus bleu. Il se 
serait même vendu en août plus de 
Macintosh que d'IBM PC-AT. Le 
Macintosh Plus a incontesta- 
blement dopé Apple. 


Tandis que se profilent les livraisons de 
l'Apple IIGS, et que les Macintosh 
ouverts connaissent semble-t-il quelques 
retards (on ne parle plus de sortie avant 
le mois de mars), les Macintosh actuels 
se vendent particulièrement bien. Aux 
États-Unis, il faut dire que la baisse de 
prix (baisse de 200 dollars sur le 512Ko 
et de 400 dollars sur le Plus) n'est 
sûrement pas étrangère à ces succès. En 
France, où les baisses de prix sont 
rarement à l'ordre du jour chez Apple, 
on compte déja 55000 Macintosh 
vendus, dont 30% dans les “grands 
comptes” qui boudaient ostensiblement 
le Macintosh depuis ses débuts. À ces 
bons résultats, probablement trois 
raisons : d'abord l'arrivée du Macintosh 
Plus avec son interface SCSI, qui fait 
plus “séneux” que le Macintosh 512Ko 
sans sortie pour disque dur ; ensuite, le 
rapprochement de l'univers MS-Dos, 
qu'il s'agisse de l'intégration du 
Macintosh dans des réseaux où se 
trouvent déjà des PC (par exemple avec 
le réseau TOPS) ou de l'échange de 
fichiers entre les Macintosh et les PC. 
Et, enfin, le ‘boom’ de l'édition 
personnelle. Ce que les Américains 
appellent le “desktop publishing” et 
qu'on a baptisé chez nous du nom 
barbare d'éditique ou de PAO 
(publication assistée par ordinateur). Un 
grand nombre d'entreprises se sont 
avisées qu'elles pouvaient réaliser 
elles-mêmes, et dans leurs locaux, des 
documents qu'on devait auparavant 
confier à un imprimeur. l! vient ainsi de 
s'ouvrir un tout nouveau marché qu'on 
n'avait pas imaginé auparavant, et qui 
s'avère être “juteux”. IBM, qui s'y 
intéresse de près, a donc annoncé une 
version spéciale de son micro 
scientifique : le PC-RT, spécialisé dans 
les tâches d'édition. En attendant, Apple 
dispose avec le Macintosh d'une 
confortable avance sar ce marché 1à. 


PAO à gogo 


Rien d'étonnant si les programmes 
d'édition électronique se multiplient. 
Aux “Page Maker” et autres 
“MacPublisher” (dont il vient de sortir 
une nouvelle version), il faut désormais 
ajouter Graphie Works de Mindscape, 
un véritable programme intégré 
comprenant un traitement de texte, un 
logiciel de dessins sophistiqué avec 
aérographe à pressions réglables, et la 
possibilité de mélanger textes et 
graphiques. Prix : 80 dollars. Ragtime 
d'Orange Micro, autre intégré d'édition 
nanti d'un traitement de texte avec 
colonnes multiples, possibilité de 
mélanger des styles et tailles, de créer 
des cadres de styles différents. On peut 
aussi ‘exploser’ un document pour 
accéder simultanément à neuf sections 
de ce document. En prime, on dispose 
d'un tableur. Enfin, PS Compose de PS 
Publishing à usage professionnel permet 
de choisir des niveaux de gris et de 
transcrire un texte en langage de 
composition. Il fonctionne avec des 
imprimantes utilisant le langage 
Postcript comme la Laser Writer, (Prix 
1000 dollars) mais aussi avec des 
systèmes de composition de 
Compugraphic ou d'Alied Linotype (le 
prix est alors de 2000 dollars). 


Est-ce un traitement de texte 
ultra-sophistiqué ou bien un système de 
mise en page ? Les nombreuses 
fonctions de Writer Plus d'ACI 
permettent de l'utiliser indifféremment 
pour ces usages. À remarquer parmi les 
avantages : la possibilité de stocker par 
thèmes des paragraphes souvent utilisés 
et de les rappeler, la faculté de stocker 
par thèmes des images, la permutation 
automatique de deux caractères (pratique 
pour corriger une faute de frappe), la 
césure automatique qui divise un mot 
sur une syllabe et pose un tiret pour tout 
mot arrivant en fin de ligne, des 
statistiques fournissant le nombre de 
signes, de mots, de paragraphes et 
d'images d'un texte ou d'une partie de 
texte, le cadrage d'un texte, l'équilibrage 
des colonnes, la gestion des niveaux 
d'un texte avec génération automatique 
d'un sommaire, le calcul entre plusieurs 
cellules dans un texte, la numérotation 
des notes, etc. C'est vrai qu'il est 
difficile de construire un programme 
pour le Macintosh. Et, apparemment, 
plus le programme est inventif, plus le 
‘debuging' est difficile. Au début 


D ——— 


novembre, Writer Plus étaitainsi encore” 
affligé de plusieurs ‘bugs’, qui auront 
certainement disparu dans ia version qui 
sera mise en vente. 


En attendant, la concurrence s'annonce 
déjà difficile. Avec notamment Write 
Now, développé par Solaster Inc 
(société acquise par Steve Jobs, ie 
fondateur d'Apple) et distribué outre 
Atlantique par T/Maker. Write Now 
comporte lui aussi la possibilité d'écrire 
en colonnes (jusqu'à 4 par page) de 
contrôler l'écart intercolonnes en points. 
On peut aussi y mélanger textes et 
graphiques, changer les dimensions 
d'une image sans qu'elle se distorde, 
contrôler l'interlignage de façon précise. 
Le traitement de texte est évolué, avec 
notamment une possibilité d'ajouter des 
notes avec numération automatique. Ce 
traitement de texte très rapide utilise bien 
évidemment lés fichiers de Macwrite ou 
de Word et comprend dans sa version 
américaine un correcteur orthogra- 
phique. # sera vendu 175 dollars. 


Mini-Macintosh, 
maxi-prix 

Il ne manque plus qu'un Macintosh 
portable pour compléter la gamme. 
Certains constructeurs essaient de 
renouveler le coup fait par Compaq à 
IBM en présentant le premier PC 
portable. Cette fois, c'est plus dur car, 
compte tenu du fait qu'Apple reste 
l'unique source de production des ROM 
et du système du Macintosh, il faut 
obligatoirement passer sous ses 
fourches caudines, ou se borner à 
acheter des Macintosh, puis à les 
recarosser, ce qui fait allègrement 
grimper la facture. Il y a quand même 
des volontaires. 


Parmi eux, Colby, qui avait déjà 
présenté de nombreux Macintosh 
recarrossés, qet espère présenter un 
portable comprenant outre les éléments 
d'un Macintosh Plus avec lecteur de 
800K, un écran plat au plasma de 12 
pouces, un disque dur intégré de 20 
Mégas et la possibilité de fonctionner 
sur batteries. Prix de 5000 à 7000 
dollars. À remarquer encore le Dynamac 
de Dynamac Computers, un portable 
style Papman lui aussi avec disque dur 
incorporé et écran plat électrolumi- 
nescent. Prix de 4500 à 5000 dollars. 
Enfin, le MX Plus d'Entelitec, à écran 
electroluminescent, de la taille de l'écran 
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du Macintosh, avec modem et disque 
dur incorporé, possibilité de fonction- 
nement sur 12 volts. Prix : 5 à 7000 
dollars, pour un ordinateur installé dans 
un attaché case tout aluminium. Devant 
tous ces projets, une seule question : 
Apple sous traitera-t-il son Macintosh 
portable pour le sortir plus vite ? Ou 
bien tous ces fournisseurs devront-ils 
rengainer leurs projets pour laisser à la 
firme à la pomme le monopole jusqu'à 
présent inentamé de la construction du 
Macintosh ? Réponse probablement 
l'année prochaine. 


Logiciels : 
encore du génie 


Lorsqu'on écrira un jour l'histoire de la 
micro-informatique, il faudra à coup sûr 
créditer le Macintosh d'un pas important 
réalisé dans l'intelligence des pro- 
grammes. Quelques preuves ? D'abord 
More, la dernière version du traitement 
d'idées Think Tank. Ce logiciel 
permettant de générer automatiquement 
un plan, un organigramme, ou des 
encadrés pour présentation audiovisuelle 
est sans concurrence pour préparer un 
article, concevoir un livre, ou penser à 
une conférence. Ses multiples perfec- 
tionnements (possibilité de regrouper, 
de promouvoir ou de rétrogader les 
parties d'un texte, de datage ou 
d'horodatage, puis de présentation) ont 
bien mérité de la cause de la 
micro-informatique. C'est simplement 
génial. 


Autre logiciel illuminé : VIP, distribué 
par P-Ingéniérie. 11 s'agit simplement 
d'un langage de programmation gra- 
phique. Plus besoins d'écrire des 
“GOTO” ou des tristounets “IF THEN 
ELSE” : on clique simptement sur des 
icônes, ou on utilise des menus 
déroulants. On peut ainsi appeler 
directement les procédures de la 
“Toolbox” ces morceaux de 
programmes inscrits dans les ROMSs du 
Macintosh permettant, par exemple, 
d'ouvrir une fenêtre à l'écran. Une fois 
composé, le programme est représenté 
par un schéma affiché à l'écran. Le 
programme peut être visualisé, modifié, 
exécuté en mode normal ou en pas à 
pas. Une version “pro” permettant de 
gérer des variables iocales ou le “list 
manager” sera bientôt disponible. Tout 
comme des bibliothèques délivrant du 
code source en‘’C"ou en Pascal. 


Est-ce un système de gestion de bases 
de données ? Oui, d'une certaine façon. 
Est-ce un logiciel de traitement d'idées ? 
Oui aussi. Guide d'OWL International 
se présente comme “le premier système 
d'hypertexte” ce qui ne veutstrictement 
rien dire. Plus simplement, ce logiciel 
permet d'établir des textes ou des 
graphiques et de créer entre eux des 
systèmes de références croisées. En 
cliquant sur une partie d'un dessin, on 
voit ainsi s'ouvrir à l'écran le texte ou la 
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partie de dessin correspondante. 
Gageons qu'on entendra reparler de ce 
logiciel vendu 100 dollars. 


Et puisqu'Unix est le système à la 
mode, voici déjà aux États-Unis Macnix 
distribué par Eurosoft International, qui 
transforme un Macintosh en station de 
travail Unix, en le reliant à un ordinateur 
‘hôte’ fonctionnant sous ce système. 
Avantage : Unix fonctionne alors avec 
tous les avantages graphiques du 
Macintosh (fenêtres, icônes, possibilité 
de recevoir un fichier en transférant 
l'icône de la fenêtre Unix sur la fenêtre 
du Macintosh, etc.). À remarquer que ce 
logiciel, qui pourrait constituer une étape 
importante dans la stratégie logicielle 
d'Apple, travaille avec les versions Unix 
System V et 4.2 BSD, ce qui lui permet 
d'être relié à des stations de travail Sun, 
Sun 2 et Sun 3, à des Vax de Dec, à des 
PC-AT et compatibles. Prix : de 600 
dollars (version pour 2 utilisateurs) à 
10000 dollars (nombre d'utilisateurs 
illimité). 


Logiciels : 
des perfectionnements 


À remarquer que la dernière version du 
programme de dessin Full Paint, le 
successeur de MacPaint, permet 
d'imprimer en couleurs sur l'imprimante 
Image writer IL À noter aussi un 
nouveau langage de programmation en 
C : le Lightspeed C de Think 
Technologies. Ce langage particuliè- 
rement rapide comprend un éditeur de 
texte multi-fenêtres, un compilateur, un 
éditeur de liens et des utilitaires de 
programmation. Prix : 175 dollars. 


Pour les architectes, Space Edit, écrit 
par l'auteur de Macintosh Space et 
distribué par Abvent, est un logiciel 
français de CAO avec objets volumiques 
combinables, bibliothèques de 
composants en trois dimensions, 
perspectives faces cachées, calques 
superposables, etc. Prix : 7000 Francs. 
Toujours distribué par Abvent, Slide 
123 permet la réalisation sur le 
Macintosh de dossiers de permis de 
construire de maisons individuelles, 
avec notamment l'établissement des 
calculs de surfaces. La sortie imprimante 
est réalisée à l'échelle requise par 
l'administration : Icm par mètre pour les 
plans et façades et le plan Masse. Pnix : 
7000 Francs. 


Des Macintosh 
dans les labos 


Avec l'entrée possible du Macintosh 
dans les usines (décrite ici dans le 
dernier numéro de Pom's), son irruption 
dans les laboratoires n'a pas fini de faire 
du bruit, Dans un article consacré aux 
logiciels spéciaux, la revue Mac World 
de septembre recense notamment des 
programmes permettant de reconstruire à 


l'écran les molécules d'ADN 
recombinant : c'est DNA Inspector de 
Textco. ChemDraw de Stewart 
Rubinstein est un outil de dessin pour 
chimistes, Labview de National 

ents Corporation permet derelier 


le Macintosh à des instruments et de les 
contrôler à l'écran du Macintosh : 
l'interface se réalise par un bus IEEE 
488. Macintosh ADIOS de GW 
instruments permet de faire fonctionner 
le Macintosh en analyseur spectogra- 
phique, voltmètres à huit canaux, ou 
d'émuler un oscilloscope à basse 
fréquence. À remarquer toujours dans le 
même domaine : Designscope de Brain 
Power, un instrument de simulation de 
circuits électroniques, à utiliser avant de 
construire matériellement un circuit. 
D'autre part, Stella, un outil pour 
améliorer les processus de productivité 
permet aux chercheurs de construire des 
modèles logiques pour réaliser des 
simulations. Qu'il s'agisse d'optimiser 
des quotas de lignes de production ou 
d'étudier les effets écologiques de la 
pollution par les gaz d'échappements 
des automobiles. Par ses possibilités 
graphiques et de calculs, le Macintosh 
devrait bientôt pénétrer en force dans les 
laboratoires. Une irruption facilitée par 
l'entrée dans la vie active de nombreux 
étudiants qui l'utilisent depuis déjà 
plusieurs années. 


Hard 


Le génie souffle aussi sur le matériel. 
Ainsi, voici (héias seulement pour 
l'insient aux États-Unis, et en 110 volts, 
mais on peut rêver), un système 
permettant de contrôler aver l'ordiaateur 
tous les interrupteurs et tous les 
systèmes électriques d'une maison. De 
quoi, par exemple, faire couler 
automatiquement un bain chaud à heure 
fixe, réchauffer une pièce juste avant le 
retour du bureau, allumer ou éteindre 
automatiquement l'éclairage. Oui, mais 
je vous vois venir, à quoi bon, 
allez-vous me dire mobiliser un 
micro-ordinateur du prix d'un 
Macintosh pour servir de 
programmateur électronique ? Eh bienla 
nouveauté du système X 10 
Powerhouse de X 10, c'est que le 
Macintosh sert simplement à 
programmer un petit boîtier de 
commande. On commence par réaliser 
un plan de sa maison avec les circuits 
électriques sur un logiciel de style 
MacPaint. On relie le boîtier au 
Macintosh, on programme les heures de 
mise en action en cliquant sur les 
interrupteurs sur le plan du Macintosh, 
et en répondant aux questions dans les 
fenêtres qui s'ouvrent. On peut ensuite 
enlever le boïtier et le connecter au 
système électrique. A l'heure dite, les 
interrupteurs électriques seront 
commandés. Le module de commande 
avec câble de liaison au Macintosh et 
logiciel coûte 80 dollars, les modules 


nécessaires pour commander chaque 
appareil éjectrique 20 dollars chacun. 


Pour ceux qui ne disposent que d'une 
Imagewriter I, voici un introducteur 
feuille à feuille permettant d'éviter le 
papier perforé. coûte moins de 2000 
Francs et est vendu par Eudimed. 


Disques durs SCSI 


A noter d'abord que le premier 
Hyperdrive externe (le FX 20) est 
disponible chez P-Ingéniérie pour 15300 
F avec ses logiciels de “spool” 
imprimante, de protection des fichiers et 
de sauvegarde incrémentale sur 
disquette. Chez International Computer, 
on trouve pour quelques 12000 Francs 
l'IC 20, lui aussi d'une capacité de 20 
Mégas. Les lecteurs de Pom's se 
souviendront peut-être de nos prévisions 
sur la baisse de prix des disques durs. 
Voici, pour eux, le premier disque dur 
externe SCSI de 20 Mégas disponible 
pour moins de 600 dollars. C'est celui 
vendu par Jasmine Computer. Combien 
de temps faudra t-il pour arriver à ce 
prix en France ? Moins d'un an ? 


L'Apple // 
en vedette 


L'Apple /{ est en vedette américaine. 
Avec, d'abord le IIGS qui estenfin sorti 
avec une moisson de programmes 
nouveaux pour la gamme Apple //. Son 
prix et ses possibilités devraient le 
réserver dans un premier temps aux 
marchés de l'éducation. Des traitements 
de texte? Voici Multiscribe de 
Styleware, tès ressemblant à Macwrite 
avec menus et polices de caractères 
modifiables, utilisation de la souris, et 
un prix de 60 dollars. Voici encore 
Paperclip de Batteries Included, avec 
toutes les fonctions de recherches, les 
en-têtes et bas de pages automatiques, 
une vision sur l'écran du document tel 
qu'il sera imprimé. Voici un nouveau 
tableur style Macintosh utilisant la souris 
: VIP professional de ISD Marketing 
avec 8192 rangs sur 256 colonnes, une 
mémoire utilisable de 4 Mégas, un 
grapheur et un langage de macros 
comme Lotus 1 2 3. Prix : 250 dollars. 
Voici encore la dernière version d'un 
simulateur de vol : Jet, réalisé par 
Subloglc l'auteur du célébrissime Fight 
Simulator qui vous place au commande 
d'un avion à réacteur, avec vue de 
l'extérieur, décollage d'un porte avion, 
etc. Et si on se plante ? Alors, voici 
Wilderness d'Electric Transit. «Que 
faire après que vous vous soyez crashé 
avec le Flight simulator ?» demande la 
publicité. Utiliser Wilderness : un jeu de 
survie dans la jungle. 


Améliorer le // 
Faut-il abandonner son // ? Il sera 


probablement possible de le mettre au 
niveau du GS. Un kit sera disponible 
l'an prochain, mais pour un prix 
d'environ 1000 dollars. C'est que ce kit 
comprend une nouvelle carte logique, 
256K0 de RAM. Le clavier et la souris 
sont vendus en supplément (pour ne pas 
nuire à ceux qui avaient déjà acheté une 
souris pour leur /'e),. 


En attendant, voici bizarrement que 
sortent de nouveaux accessoires pour 
améliorer le // dans les domaines où le 
GS prime. Ce sont notamment la carte 
Yess de Yam Educational, permettant de 
transformer le // en piano électronique, 
et le Phasor, d'Applied Engineering, 
une carte synthétiseur avec 4 voies 
stéréophoniques, 12 canaux simultanés, 
4 générateurs de bruit blanc, etc. Prix : 
179 dollars. 


Déjà des nouveautés 
pour le Ilcs 


A peine est-il sorti que voici déjà des 
logiciels et du matériel pour ie GS. Côté 
logiciels, remarquons les trois pro- 
grammes de Version Soft : un traitement 
de texte : GS Write, très semblable à 
Macvwrite, mais avec la possibilité 
d'ouvrir jusqu'à 16 documents, un 
programme de dessin GS Paint 
(MacPaint avec de ia couleur !) et un 
programme de communication: GS 
Com. Ces produits ont été achetés par la 
firme Activision qui compte en écouler 
75000 aux États-Unis. On recense 
encore des programmes de publication 
assistée par ordinateur : Opus de Quark, 
Pager de Megahaus, et Front Page de 
Broderbund.TML a un compilateur 
Pascal, Electronics Art a adapté Deluxe 
Paint, son programme de dessin déjà 
vendu pour l'Amiga. Broderbund va 
améliorer pour le GS les programmes 
Print Shop et Fantavision. On parle 
même d'un logiciel intégrateur façon 
switcher baptisé Carrousel. 


Sur le front des accessoires, on 
remarque un disque dur de 20 Mégas et 
une carte de 1 méga-octet de disque 
virtuel d'AST. Une carte d'extension 
mémoire pouvant contenir 4 Mégas, le 
RamPak4 GS d'Orange Micro et une 
carte interface parallèle : le ProGrappler. 
Orange Micro propose même un des ces 
accessoires avec un ventilateur et prises 
supplémentaires qui permettent de 
rendre bruyants des ordinateurs 
généralement silencieux. Applied 
Engineering a déjà concocté deux cartes 
d'extension : la GS Ram (1,5 Méga 
octets sur la carte) et la GS Ram Pius 
Gusqu'à 6 Mégas). 


L'Apple // GS est ouvert. Grand ouvert. 
On va voir déferler les accessoires. Les 
imaginations et tes fers à souder n'ont 
pas fini de chauffer dans la Silicon 
Valley. 


Adresses 


Mindscape Inc- P.O. Box 1167 
Northbrock - IL 60065 

Orange Micro + 1400 n Lakeview Ave 
Anaheim - CA 92807 

PS Publishing - 290 Green St San 
Francisco - CA 94133 

ACI-6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 43 59 89 55 


T/Maker - 1973 Landings Drive 
Mountain - View CA 94043 
P-Ingéniérie - 226, bd Raspail 

75014 Paris - Tél. : 43 21 93 36 
OWL International - 14128 NE 21st 
Street Believue- WA 98007 

Think Technologies - 420 Bedford St 
Lexington - MA 62173 

Abvent - 53, avenue de Breteuil 

75007 Paris - Tél. : 47 34 43 98 
Textco - 27 Gilson Rd West Lebanon 
NH 03784 

Stewart Rubinstein - 77 Sacramento St 
n° 11-Somerville MA 02143 
National Instruments - 12109 
Technology Bd Austin-TX 78727 
GW Instruments - PO Box 547 
Cambridge - MA 02142 

Braïnpower - 24009 Ventura Bd 
Calabasas - CA 91302 

High Performances Systems 

13 Darmouth College Hwy Lyme - NH 
03768 

X 10-185 À Le Grand Ave Northvale, 
NJ 07647 

Eudimed - 98, bis bd de la Reine 
78000 Versailies - Tél. : 39 02 15 30 
Jasmine Computer Systems 

PO Box 1119 Mountain View - CA 
94042 


Styleware - 6405 Hillcroft, Suite 201 
Houston TX 77081 


Batteries Included - 30 Muraï St 
Richmond Hill-Ontario Canada LAB 
1b5 

ISD Marketing - 20 Steelbase Road Unit 
12 Markham Ontario Canada - L3R 1B2 
Electric Transit - 501 Maiin Street suite 
116- Thousand Oaks, CA 91360 

Yam Educational Software 

2028 El Camino Real San Mateo - CA 
94403 

Applied Engineering - PO Bax 798 
Carrollton- TX 75006 G 


Coliaborateur de Pom's vend à l'état 
neuf, un lecteur 140Ko //c (1700,00 F), 
ur moniteur /c (1100,00 F), un Stand //c 
(250,00 F), une housse //c (375,00 F), 
un joystick //e-//c (375,00 F) et un 
manuel de référence //e (250,00 F). 
Écrire à La rédaction qui transmettra. 
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Alexandre Duback 


AppleWorks au travail 

par Alain Gargadannec et 
Jean-Michel Jego 

Éditions du PSI - 160 FF. 


Cet ouvrage est composé de trois 
parties : Découverte de la base de 
données, du traitement de texte et 
du tableur - Plus loin avec la base 
de données et le tableur - 
Intégration avec AppleWorks. 
Bien écrit et agréablement 
présenté, il nous emmène à la 
maîtrise du logiciel, grâce à des 
applications destinées aux PME, 
artisans et commerçants (paye, 
facturation). 


Il est utile, surtout pour les 
non-informaticiens et les “vilains” 
possédant une version piratée. Le 
principal intérêt de ce livre est de 
nous entraîner au-delà de la 
simple utilisation du programme 
(ce qui est facile, AppleWorks 
étant un logiciel ultra-fiable, 
conversationnel et bien 
documenté part une fonction 
d'aide), en nous montrant 
jusqu'où vont les possibilités de 
ce logiciel intégré, c'est-à-dire les 
articulations entre ses trois 
applications. 


Ce livre ne s'adresse pas aux 
possesseurs de la version 
anglaise, dont les commandes ne 
sont pas les mêmes. 


Dictionnaire de 


micro-informatique 
par Éric Duceau et Christophe 


Doë - Cedic-Nathan - 191 pages. 
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Un livre clair, comportant de 
nombreuses illustrations et bien 
présenté. Les informations ne 
sont pas tou jours exactes : ainsi, 
le langage de programmation 
Ada( et non A.D.A.) a été créé 
par Jean Ichbiah (et non Ichbiach) 
et, à la date de parution de 
l'ouvrage, il existe déjà de 
nombreux compilateurs, contrai- 
rement à l'affinrnation de l'auteur. 
Un double lexique français/ 
anglais et anglais/français termine 
l'ouvrage. 


MacAstuces, Macintosh 
et Macintosh Plus, 


deuxième édition 


par Hervé Thiriez 
Éditions du PSI - 160 FF. 


Cette seconde édition de 
MacAstuces compoite une mise à 
jour, l'adjonction de nouvelles 
astuces d'utilisation du Macintosh 
et, surtout, une vingtaine de 
pages entièrement nouvelles et 
consacrées au Macintosh Plus. La 
disquette d'accompagnement peut 
être commandée aux Éditions 
ME. 


Guide pratique d'Excel 
par Hervé Thiriez - Cedic-Nathan 
170 pages grand format. 


Un ouvrage de base pour 
l'apprentissage d'Excel, à l'aide 
de plusieurs cas de gestion 
réalistes. Le seul livre sur Excel 
qui, à notre connaissance, 





Taquin, Noir & blac, hexagone magique, trois {| un 
jeux de réflexion de difficulté croissante. Ces 
jeux qui nécessitent des neurones aussi calmes 
qu'entraînés, ne devraient pas décevoir les 
amateurs de puzzles et autres casse-têtes. 


80,00 F franco, Bon de convrarde page 74 
(La disquette comprend les sources) 


Bibliographie 


indique quels sont les bogues du 
logiciel et comment les 
contourner. Une prise en main 
progressive et pédagogique, 
couvrant toute l'utilisation de 
base d'Excel, y compris le calcul 
de tables et la programmation de 
macros. De nombreuses astuces 
d'utilisation sont mises en relief 
et ressortent facilement grâce à 
une présentation en grisé. Une 
disquette d'accompagnement 
facultative comprend tous les 
tableaux de l'ouvrage, ainsi 
qu'une nouvelle police de 
caractères de taille 6, permettant 
de voir à l'écran un grand nombre 
de lignes et colonnes à la fois. 


Programming pearls 
par Jon Bentley 
Addison-Wesley - En anglais. 


C'est la reprise sous la forme 
d'un livre d'une série d'articles 
publiés dans Communications of 
then ACM, une sérieuse revue 
professionnelle pour informati- 
ciens. Une mine d'or pour les 
programmeurs, qui y trouveront 
de multiples astuces de 
programmation, des routines de 
tri et recherche, des idées sur la 
façon de structurer efficacement 
les données, des conseils sur la 
mise au point des programmes. 
Indispensable pour les 


programmeurs. 








Bon de commande 


Disquettes 


HAIFA source (cf. Pom's n° 5) à 60,00 F 
DISK-MANAGER (cf. Pom's n° 11) 450,00 F 
BASICIUM (cf. Pom's n° 13) 150,00 F 
(cf. Pom's n° 23) 200,00 F 
Échange E.P.E. 5.0 (cf. Pom's n° 23) 80,00 F 
PASCAL (cf. Pom'sn° 15) 86,00 F 
MAX (Moniteur étendu) (cf. Pom's n° i8) .….…. à 150,00 F 
DOMINOS (cf. Pom's n° i9) 80,00 F 
(cf. Pom's n° 21) 150,00 F 
(cf. Poru's n° 25) 
(cf. Pom's n° 26) 


Recueils 
N°1, recueil des revues 1 à 4 140,00 F 
Disquettes d'accompagnement 1 à 4 200,00 F 
N°2, recueil des revues 5 à 8 140,00 F 
Disquettes d'accompagnement 5 à 8 200,00 F 
N°3, recueil des revues 9 à 12 140,00 F 
Disquettes d'accompagnement 9 à 12 200,00 F 


Revues, disquettes 
Revues 4 7 8 35,00 F 


Revues 10 11 12 13 14 15 16 17 18 192021 22 23 24 2526 40,00 F 


Disquettes Apple IT, //e, fe 


1/2 9 "4 5. 6 7 8 9 10 11 12 19 60,00 F 
14 15 16 17 18 19 20 21 22 23 24 252627 


Disquettes Macintosh 
14/15/16 groupées 150,00 F 


17 18 19 20 21 22 23 24 25 2627 80,00 F 
Mac ‘A 80,00 F 


MacAstuces 200,00 F 
uR er 200,00 F 


Abonnements Pour 6 numéros à partir du n°... 


Abonnement à la revue seule 225,00 F 
Abonnement revue + disquettes Apple IX, //e, //c 525,00 FE 
Abonnement revue + disquettes Macintosh 625,00 F 


Total TTC : 
Suppiémernt avion hors CEE : 15,00F par numéio et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS ME V, 64 rue des Chantiers 78000 VERSAILLES 


Nom : 


Adresse : 


Imprimerie Rosay. 84300 Vincennes. Imprimé en France. Dépêt légal : Novembre 86, N° 3984 
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UTILISER 


Mac Astuces 450FF — Multipian 
pour Macintosh 410 FF — Le livre de 
Jazz 220FF —- 50 modèles Multiplan 
Apple 95FF — Les ressources de l'Apple pour gêrer sur Apple etIBM/PC 430 FF — 
lc 95FF —- Assembleur de l'Apple 420FF — Appleworks au travall 460 FF — 
introduction à ProDOS sur Apple 85FF — Photographie sur Apple et Amstrad 450. 
Système ProDOS sur Apple 


système de rappel orr— DES LIVRES POUR FOPRR 


PROGRAMMER 


Clefs pour Macintosch 450 FF — 
Basic Microsoft 20 sur Macintosh 
250 FF — Basic + 80 routines sur 





























Appte, modems et serveurs =: 402 programmes pour 
430 FF — Clefs pour l'Apple llc CREER Apple 420FF — Super jeux 
et Île 65CO2  445FF. Apple 120 FF. 


Programmation des jeux d'Arcade sur 
Apple !! 440FF — Apple. logique et 

systèmes experts 420FF — Création et 
animation graphique sur Apple 335 FF. 


DEMANDER LE CATALOGUE GRATUIT à PS. Diffusion - B.P 86 - 77402 LAGNY CEDEX 


